Grouper des feuilles en une seule

Bonjour,
j'ai converti une fichier PDF de 137 pages en excel ce qui m'a donné 137 feuilles dans mon classeur. J'aimerais toutes les grouper pour en faire un très loooong tableau unique sur une feuille vierge. Qui peut m'aider ? Merci à tous.

Jambois

Comme d'habitude, il est toujours préférable de fournir un fichier d'exemple, même quelques pages et anonymisées si nécessaire, si vous souhaitez obtenir de l'assistance.

Et vous confirmez utiliser la version 2007 ?

bonjour Stoky, salut jpbt84,

cela dépend un peu de la mis en page des 137 pages, mais un premier essai, si cela ne focntionne pas, un fichier d'exemple (anonymisé), comme jpbt84 le disait aussi, est préférable. Peut-être il y a des entêtes sur chaque page qu'il faut supprimer ou il y a plusieurs blocs de données su chaque page ou ....

Sub Grouper()

     Dim i, sH, shI
     Sheets.Add before:=Sheets(1)            'ajouter une nouvelle feuille toute au début
     Set sH = ActiveSheet

     For i = 1 To Worksheets.Count           'boucler totues les feuilles
          Set shI = Worksheets(i)
          If shI.Name <> sH.Name Then        'si ce n'est pas la nouvelle
               shI.Range("A1").CurrentRegion.Copy     'copier premier bloc
               sH.Range("A" & Rows.Count).End(xlup).Offset(1).PasteSpecial xlValues     'coller l'un en dessous l'autre dans la nouvelle feuille
          End If
     Next

End Sub