,,,,,,,,,,
;;;;;;;;;;
..........
Private Sub UserForm_Initialize()
Set f = Feuil1' Feuil1= > Feuille Accueil, ce qui ne ne va pas, non ?
Set RngBD = f.Range("A2:H" & f.[A65000].End(xlUp).Row)
RngBD.Sort key1:=Application.Index(RngBD, 1, 1) ' Tri alpha
TblBD = RngBD.Value
If f.[A65000].End(xlUp).Row > 1 Then Me.ComboBox1.List = TblBD
B_ajout_Click
End Sub