Autres Déclaration de la variable

Bonjour forum
comment je déclare cel dans

Private Sub UserForm_Initialize()
Dim lf As Long 'déclare la variable lf (Ligne de Fin)

cbx_NuméroContrat.SetFocus

'----- comboBox sans cellule vide --------------------------------------------
Sheets("BdD Projets").Select
lf = Range("B65536").End(xlUp).Row 'définit la variable lf
cbx_NuméroContrat.Clear 'vide la ComboBox1
'remplit la ComboBox4
For Each cel In Range("B4:B" & lf) 'boucle sur toutes les cellule de B4 à AB_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> "" Then cbx_NuméroContrat.AddItem cel.Value
Next cel 'prochaine cellule
'------------------------------------------------------------------------------
End Sub

MERCI