re, salut felix,
ben évidemment SEBAA (code de félix), si tu ne dis pas que l'on peut utiliser la colonne B à la place de la F
Dan
edit : en gardant la liste en colonne F
Private Sub UserForm_Initialize()
'Macro par Dan pour SEBAA
Dim cel As Range, plage As Range
Set plage = Range("F3", Range("F65536").End(xlUp))
For Each cel In plage
With ComboBox1
If cel <> "" Then .AddItem cel
End With
Next
End Sub