Microsoft 365 affichage combobox sans les lignes sans valeur

Private Sub UserForm_Initialize()
Dim lf As Long, cel
   Sheets("Feuil1").Select
   lf = Range("e65536").End(xlUp).Row
   ComboBox1.RowSource = ""
   For Each cel In Range("e2:e" & lf)
      If cel.Value <> "" Then ComboBox1.AddItem cel.Value
   Next cel
End Sub

Private Sub UserForm_Initialize()
Dim lf As Long, cel
   Sheets("Feuil1").Select
   lf = Range("e65536").End(xlUp).Row
   ComboBox1.RowSource = "ClientsNumAct"
   For Each cel In Range("e2:e" & lf)
      If cel.Value <> "" Then ComboBox1.AddItem cel.Value
   Next cel
End Sub

Private Sub ComboBox1_Change()
If ComboBox1 Like ("") Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
[b2].Value = ComboBox1.Value

Application.EnableEvents = True
Application.ScreenUpdating = True
'[L3] = ComboBox1.Value
Unload Me
Exit Sub
End Sub

For Each cel In Range("e2:e" & lf)

For Each cel In .Range("e2:e" & lf)