XL 2010 Liste de choix sans espace dans Combobox

Private Sub UserForm_Initialize()
Dim x
  With Sheets("Feuil1")
    derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
    If derlig > 1 Then
      For Each x In Feuil1.Range("A2:A" & derlig)
        If x <> "" Then ComboBox1.AddItem x
      Next x
    End If
  End With
End Sub

Private Sub UserForm_Initialize()
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
Feuil1.Select
lf = Range("A15").End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox4
For Each cel In Range("A2:A" & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule 'Dim Malist As Range
'With Feuil1
'    Set Malist = .Range("A1:A10")
'End With
'Dim l As Integer
'UserForm1.ComboBox1.List = Malist.Value
End Sub