Private Sub UserForm_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("Liste").Range("A65536").End(xlUp).Row
For x = 1 To i
With ComboBox2
.AddItem Sheets("Liste").Range("A" & [COLOR="Red"]x[/COLOR])
End With
Next x
End Sub