Private Sub UserForm_Initialize()
Dim c As Range
'efface le contenu de la listbox
ListBox1.Clear
'avec la feuille base de donnée.
With Sheets("base de donnee")
'ne pas oublié le "." devant range sinon il prend les valeurs de la feuille active
For Each c In .Range("B3:B65")
If c <> "" Then ListBox1.AddItem c
Next
End With
End Sub