Private Sub UserForm_Initialize()
Dim cel As Range 'déclare la variable cel
For Each cel In Range("A2:A" & Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellules de la colonne A
If cel.Value <> "" Then Me.ListBox1.AddItem cel.Value 'si la cellule n'est pas vide, alimente la ListBox1
Next cel 'prochaine cellule de la colonne A
End Sub