' Parcourir la Listbox
For Ind = 0 To Me.ListBox1.ListCount
' Si la liggne est sélectionnée
If Me.ListBox1.Selected = True Then
' Ajouter le texte à celui temporaire avec un retour à la ligne
sTmp = sTmp & Me.ListBox1.List(Ind) & Chr(10)
End If
Next Ind
' Supprimer le dernier retour à la ligne
sTmp = Left(sTmp, Len(sTmp) - 1)
' Inscrire le tout
Cells(i, 22) = sTmp ' ici colonne V