Extraire valeur de la seconde colonne seulement d'une listbox

Salut Forum,

comment récupérer la valeur de la seconde colonne de ma listbox à partir de ce code récupéré?

Private Sub Test()
Dim lItem As Long
    For lItem = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(lItem) = True Then
            Sheets("Clients").Range("DD65536").End(xlUp)(2, 1) = ListBox2.List(lItem)
            ListBox2.Selected(lItem) = False
        End If
    Next
End Sub

La seconde colonne contient une liste de courriel que je souhaite envoyer en colonne DD sur la feuille Clients

J'y arrive aisement quand la listbox contient uniquement une colonne de courriels, mais quand j'ajoute les noms en première colonne j'Avoue que je bug pour récupérer la liste des emails qui est en seconde!

Bonjour,

à tester,

With Me.ListBox2
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            Sheets("Clients").Range("DD65536").End(xlUp)(2, 1) = .List(i, 1) '0 est la première colonne
            .Selected(i) = False
        End If
    Next i
End With

merci