Aide sur boucle "Do While"

Bonjour les amis,

Je suis débutant sur VBA et j'aimerai créer un code VBA qui fera ceci

# Image ci-jointe

L'idée c'est de faire une boucle "Do while" qui commencera à la première colonne et vérifiera si toutes ses cellules sont non vides puis sauvegardera cela dans une autre feuille en Array.

Dès que la valeur de la cellule est vide, il prendra la cellule de la colonne à sa droite jusqu'à la dernière cellule non vide et collera ces valeurs dans l'Array.

Voilà ! J'espère que c'est clair et n'hésitez pas si vous avez des questions.

Je vous remercie énormément !!!!

Bonjour

une proposition.

Sub aargh()
    i = 2
    j = 1
    While Cells(i, j) <> ""
        Cells(i, "G") = Cells(i, j)
        i = i + 1
        If Cells(i, j) = "" Then j = j + 1
    Wend
End Sub

merci de lire les règles du forum (in casu tu aurais dû mettre un fichier excel, plutôt qu'une photo dont on ne sait rien faire).

Merci beaucoup pour ton retour si rapide @h2so4

Ca a bien marché !