VBA Regrouper le contenu des colonnes jusqu'à une colon vide

Bonjour à tous,

Mon objectif est de regrouper le contenu de plusieurs colonnes (sur la même ligne) dans une seule Cellule.

Je voudrais regrouper le contenu des cellule de chaque colonnes jusqu’à arriver sur un colonne vide.

Comme ce nombre de colonne peut être énorme, je ne veut pas utiliser le fonctionner CONCATENATE mais écrire une macro en VBA.

Je voudrais afficher le résultat en A20, (A20 est censé regrouper toutes les cellules des la première ligne)

Voila le code que j'ai écrit :

Sub macro_colonnes()

For i = 2 To 100

Cells(20, 1) = Cells(1, 1) & Cells(1, i)

If Cells(1, i) = "" Then

Exit For

End If

Next i

End Sub

Cependant, à chaque loop, il efface le contenu de la colonne précédente, comment faire pour garder le résultat de chaque loop?

(N'hésitez à me demander des précisions si mon explication n'est pas claire)

Je joins mon fichier exemple pour une meilleure compréhension de mon problème

Bonjour et bienvenue sur le forum,

Il faut faire la concaténation avec la cellule a20.

Essaie ce code:

Sub macro_colonnes()
[a20].ClearContents
For i = 2 To 100
    Cells(20, 1) = Cells(20, 1) & Cells(i, 1)
    If Cells(1, i) = "" Then
        Exit For
    End If
Next i

End Sub

cordialement

ddetp88