Copier-coller de tableaux sur plusieurs feuilles

Bonjour le forum,

Je sais que mon sujet ressemble à beaucoup d'autres mais je n'ai pas trouvé de post qui corresponde précisément à ma recherche, c'est pourquoi je sollicite votre aide.

Je souhaite réaliser une macro qui va faire un copier-coller de tableaux. Chaque tableau sera dans une feuille séparée, la macro devra sélectionner les tableaux des différentes feuilles puis coller l'ensemble dans une nouvelle feuille, les uns sous les autres.

Le nombre de lignes des tableaux dans chaque feuille peut être différent des autres. Le nombre de feuilles à copier m'est inconnu. La première ligne de tous les tableaux sera identique (ligne des titres) c'est pourquoi je voudrais qu'elle ne soit copiée que pour la première feuille.

Ci-joint un exemple de ce que je cherche à obtenir.

Merci à tous par avance. Je reste à votre disposition si vous avez la moindre demande.

Razlor

Bonsoir,

Ci-joint une proposition, à tester.

Bonne soirée

Bouben

Bonjour,

Une seconde proposition à adapter.

Cdlt.

Private Sub cmdConsolider_Click()
Dim ws As Worksheet, ws2 As Worksheet
Dim lRow As Long

    Application.ScreenUpdating = False

    Set ws2 = ActiveSheet
    ws2.Cells(1).CurrentRegion.Offset(1, 0).ClearContents
    lRow = 2

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Synthèse" Then
            ws.Cells(1).CurrentRegion.Offset(1, 0).Copy Destination:=ws2.Cells(lRow, 1)
            lRow = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
        End If
    Next

    Set ws2 = Nothing

End Sub