Ecrire un Code VAB ligne en code VBA colonne ?

Bonjour

J'ai ce code qui fonctionne pour une ligne, c'est à dire qu'il récupère les valeurs de la ligne 1, colonne 5, puis colonne 6, 7, 8 jusqu'à ne plus trouver de valeur

CODE LIGNE

Private Sub UserForm_Initialize()

Dim Col As Integer

Col = 5

Do While Cells(1, Col).Value <> ""

UserForm1.ComboBox1.AddItem Cells(1, Col).Value

Col = Col + 1

Loop

J'aimerais écrire le même code mais pour faire une recherche en colonne c'est à dire

Partir par exemple de la colonne 4, ligne 5, puis ligne 6, ligne 7 ,8 jusqu'à ne plus trouver de valeurs.

Mais je n'arrive pas à l'écrire correctement

CODE COLONNE avec erreur

Dim No_ligne AS integer

No_ligne = 5

Do While Cells(No_ligne,Col4).Value <>""

UserForm1.ComboBox1.Additem Cells(No_ligne,Col4).value

No_ligne=No_ligne+1

Loop

Merci

Cdt

Bonjour

essai:

Do While Cells(No_ligne,4).Value <>""

Cordialement

Bonjour

Oui c'est cela , j'ai essayé en créant une deuxième variable et donc supprimé le C

Merci

Cdt