Liste déroulante à choix multiple UN CHOIX PAR LIGNE RESULTAT

Bonjour,

Je cherche à créer une liste déroulante à choix multiple qui envoie chaque choix dans une cellule propre.

Pikaju avait posté une macro (ci dessous) qui correspond presque parfaitemente à ce que je veux faire sauf pour la ce qui est d'affecter une cellule à chaque résultat.

Je pense que c'est cette peut-être partie qu'il faut changer:
ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "

(Sachant qu'aller à la ligne avec vbrf n'est pas ce que je cherche)

Merci d'avance à qui pourra m'aider!

Macro de Pikaju:
Private SUB

CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
End If
Next i
With Sheets("Feuil1")
.Range("C4") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
.Range("C5").Activate
End With
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear

Derlig = Sheets("Feuil1").Cells(65536, 9).End(xlUp).Row
For i = 1 To Derlig
ListBox1.AddItem Cells(i, 9).Value
Next i
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox1.Selected(i) = False
End If
Next i
End Sub