Automatiser par macro ou VBA cellules concaténées

Bonsoir

Je cherche à automatiser un fichier. J'aimerai avoir sur une seule ligne le regroupement de plusieurs cellules de différentes lignes et pour 40 colonnes... et le tout a parti de la première colonne A

je joint un fichier cela sera plus simple...

avec concaténer j'arrive à faire des choses mais c'est long et j'ai 20000 lignes

merci pour votre aide

bonsoir,

une macro à tester.

Sub concentre()
    With Worksheets("Feuil1")
        dl = .Range("A" & Rows.Count).End(xlUp).Row
        l = dl + 2
        For i = 2 To dl
            If .Cells(i, 1) <> .Cells(i - 1, 1) Then
                l = l + 1
                .Rows(i).Copy .Rows(l)
            Else
                For j = 1 To 41
                    If .Cells(i, j) <> .Cells(i - 1, j) And .Cells(i, j) <> "" Then
                        .Cells(l, j) = .Cells(l, j) & vbNewLine & .Cells(i, j)
                    End If
                Next j
            End If
        Next i
    End With
End Sub

Sacré réactivité et chapeau bas !!!

C'est exactement ce que je voulais...

un grand MERCI