Lister dans une combobox les lignes où les cellules d'une colonnes sont vides

Private Sub UserForm_Initialize()
  Dim i As Integer
  
  Application.Goto Reference:=Sheets("Feuil1").Range("Numero")
  dl = Sheets("Feuil1").Range("Numero").End(xlDown).Row + 1
  nom = Replace(Cells(1, ActiveCell.Column).Address(0, 0), "1", "")
  CelluleB = nom & dl
  Application.Goto Reference:=Sheets("Feuil1").Range(CelluleB)
  
  plage = "A2:A" & dl
  
  i = 2                         'début sur la ligne 2
  Do
    If IsEmpty(Cells(i, 3)) Then
      Me.ComboBox2.AddItem Cells(i, 1)
    End If
    i = i + 1
  Loop Until i = dl             'fin sur la dernière ligne
  
  Me.ComboBox1.RowSource = plage
  
  With Me.ComboBox1
    .ColumnCount = 1
  End With
  
  
End Sub