Bonjour Bidouille
A tester et adapter pour les autres box.
Private Sub UserForm_Initialize()
Dim xcell
With Sheets("Liste")
For Each xcell In .Range(.Cells(2, "A"), .Cells(Rows.Count, "A").End(xlUp))
If xcell.Address(0, 0) <> "A1" And xcell <> "" Then ComboBox1.AddItem xcell
Next xcell
End With
End Sub
En espérant que ce te convienne