Private Sub UserForm_Initialize()
Dim lf As Long
Sheets("Primaire").Select
lf = Range("A65536").End(xlUp).Row
ComboBox1.Clear
For Each cel In Range("A2:A" & lf)
If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel
End Sub
Private Sub quit_Click()
Unload Me
End Sub