à la va vite je pencherai pour une concaténation
cells(1,1).value = range("B1"i).value
for i = 2 to 50
cells(1,1).value = cells(1,1).value & ";" & range("B" & i).value
next i
pour le nombre de personnes dans la liste, ou bien tu la stocke en dur dans une cellule ou bien tu fais une boucle avec un nombre grand, avec un if . value <>""