Ignorer cellule vide dans combobox

For Each cel In Range("Plage")
 If cel.Value <> "" Then combobox.AddItem cel.Value
Next cel

Private Sub UserForm_Initialize()
Dim cell As Range

With ComboBox1
  .ColumnCount = 2
  .ColumnWidths = "100,0"
End With

With Sheets("ID")
  For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
     If cell <> "" Then
        ComboBox1.AddItem cell
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = cell.Offset(0, 1)
     End If
  Next
End With

End Sub
Private Sub ComboBox1_Change()
Me.TextBox1 = Me.ComboBox1.Column(1, Me.ComboBox1.ListIndex)
End Sub

Private Sub UserForm_Initialize()
Dim cell As Range
With ComboBox1
  .ColumnCount = 2
  .ColumnWidths = "100,0"
End With
With Sheets("Feuil1")
tableau = .Range("A2:B" & .Range("A65536").End(xlUp).Row)
For n = 1 To UBound(tableau, 1)
 For m = n + 1 To UBound(tableau, 1)
   If tableau(m, 1) < tableau(n, 1) Then
     temp = tableau(n, 1)
     temp1 = tableau(n, 2)
     tableau(n, 1) = tableau(m, 1)
     tableau(n, 2) = tableau(m, 2)
     tableau(m, 1) = temp
     tableau(m, 2) = temp1
   End If
 Next m
Next n
    For n = 1 To UBound(tableau, 1)
     If tableau(n, 1) <> "" Then
       ComboBox1.AddItem tableau(n, 1)
       ComboBox1.List(ComboBox1.ListCount - 1, 1) = tableau(n, 2)
     End If
  Next n
End With
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1 = Me.ComboBox1.Column(1, Me.ComboBox1.ListIndex)
End Sub