' Initialisation des variables
EMailSendTo = ""
' Pour chaque ligne sélectionnée
For NAdr = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(NAdr) = True Then
' Ajouter l'adresse du destinataire
EMailSendTo = EMailSendTo & Me.ListBox1.List(NAdr) & ", "
End If
Next NAdr
' Supprimer la dernière virgule
EMailSendTo = Left(EMailSendTo, Len(EMailSendTo) - 2)