Lister les valeurs d'une colonne dans une cellule

Bonjour à tous,

Comme le sujet l'indique j'aurais besoin d'une macro me permettant de lister dans une cellule (avec un séparateur espace) les valeurs contenues dans une colonne.

Dans mon exemple en pièce jointe, il faudrait que les valeurs contenues dans la colonne A, soit listées dans la cellule D1. A noter que ma colonne A peut être "infiniment" grande.

Dans mon cas, les valeurs à lister seront toujours séparées par 5 cellules vides (comme dans mon exemple :

).

Merci par avance aux personnes qui m'apporteront leur aide !

Bonne journée.

Bonjour,

Voici le code qui vous permettra de réaliser ce dont vous avez besoin :

Sub concatenation()

Dim DernLigne As Integer
Dim Resultat As String

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Resultat = ""

For i = 1 To DernLigne
    If Range("A" & i).Value <> "" Then
        Resultat = Resultat & Range("A" & i).Value & " "
    End If
Next

Range("D1").Value = Resultat

End Sub

Si cette réponse vous convient, n'oubliez pas de valider la réponse.

Bonne journée!

Cindy

Rapide, efficace, merci beaucoup !