Alimenter des cellules de valeur d'une listboxmulti

Salut Forum!

Encore un petit probleme de base

Je veux alimenter la colonne DC .. a partir de DC4

une liste de destinataire au préalable sélectionnés dans la listbox1 .. je ne sais pas trop comment m'y prendre voici mon code jusqu'A présent

Dim i As Long
For i = 0 To Me.ListBox1.ListCount
Worksheets("Clients").Cells("DC4").Value = ListBox1.Value 
Next

En plus il faut que cela s'incremente vers le bas .......

Bonjour,

Code lié à un bouton car sur MultiSelect le clic de la ListBox n'est pas le mieux adapté :

Private Sub CommandButton1_Click()

    Dim I As Long

    For I = 0 To Me.ListBox1.ListCount - 1

        If ListBox1.Selected(I) Then
            With Worksheets("Clients")
                .Cells(.Cells(.Rows.Count, 107).End(xlUp).Row + 1, 107).Value = ListBox1.List(I)
            End With
        End If
    Next

End Sub