Private Sub UserForm_Initialize()
Sheets("F2_Clients").Activate
Dim DernLig&
With ActiveSheet.UsedRange: DernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With
'Nom/Prenom/Ville
Unique_Sorted_ComboList Me.cbNom, Range("A2:A" & DernLig)
Unique_Sorted_ComboList Me.cbPrenom, Range("B2:B" & DernLig)
Unique_Sorted_ComboList Me.cbVille, Range("C2:C" & DernLig)
End Sub