Regrouper plusieurs tableaux

[JP54]

Bonjour,
J'ai un fichier avec plusieurs feuilles, dans chaque feuille il y un tableau, ces tableaux sont identiques, je voudrais regroupé ces tableaux en un seul dans un autre onglet. A savoir que mes tableaux vont s'agrandir donc je voudrais que mon tableau récap. s'agrandisse également. En VBA ou formule excel.
Je vous ai mis un petit exemple.
Merci

 

[Hieu]

Salut,

Une solution par macro :

Sub Macro1()
For Each s In Sheets
If s.Name <> "Recap" Then
    For i = 4 To s.Range("A65000").End(xlUp).Row
        Sheets("Recap").Range("a4").Offset(k, 0) = s.Range("a" & i)
        Sheets("Recap").Range("b4").Offset(k, 0) = s.Range("b" & i)
        Sheets("Recap").Range("c4").Offset(k, 0) = s.Range("c" & i)
        k = k + 1
    Next i
End If
Next s
End Sub

 

[JP54]

C'est parfait, c'est tout à fait ce que je voulais.
Merci beauciup

 

[JP54]

J'ai encore une petite question.
Sur le fichier je viens de rajouter deux pages, mais je voudrais que la page ''Base_1 et Base_2'' ne figurent pas dans la page récap. Comment modifié le code pour que les tableaux ne figurent pas dans la page récap.
Et je supprime une ligne dans la Base_1, sera-t-il supprimer dans mon fichier récap.

 

[JP54]

Personne pour m'aider?