' For i = 0 To UserForm1.ListBox1.ListCount - 1
' If UserForm1.ListBox1.Selected(i) = True Then
' Dest = 1
' Set c = Sheets("Feuil1").Columns(2).Find(UserForm1.ListBox1.List(i), LookIn:=xlValues, LookAt:=xlWhole)
' If Not c Is Nothing Then
' firstAddress = c.Address
' Do
' Adresse = Adresse & c.Offset(0, 1) & "; "
' Set c = Sheets("Feuil1").Columns(2).FindNext(c)
' Loop While Not c Is Nothing And c.Address <> firstAddress
' End If
' End If
' Next i