Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
lf = Range('A65536').End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox1
For Each cel In Range('A1:A' & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> '' Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule
End Sub