Private Sub UserForm_Initialize()
Dim Cell As Range
Dim Collec As New Collection
Dim Compteur As Integer
With Sheets("Feuil1")
For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec.Add (Cell), CStr(Cell)
If Err.Number = 0 Then
Me.Combobox1.AddItem Cell
End If
On Error GoTo 0
Next
End With
End Sub