Private Sub UserForm_Initialize()
Dim Clé As Variant, TotLig&
Set f = Sheets("bd")
TotLig = f.[B65000].End(xlUp).Row - 1 '-1 départ 2'ligne
Clé = f.Range("B2:B" & f.[B65000].End(xlUp).Row)
Me.Service.List = Array("Etudes", "Informatique", "Marketing", "Production")
Me.Loisirs.List = Array("Lecture", "Cinéma", "Vélo", "Natation", "Internet")
'-------------avec tri---------------
If TotLig > 1 Then
Call Tri(Clé, LBound(Clé), UBound(Clé))
Me.ChoixNom.List = Clé
Else
Me.ChoixNom = Clé
End If
Me.ChoixNom.ListIndex = -1
B_ajout_Click
End Sub