Rassembler les onglets sur une seule feuille

Bonjour,

J'ai beau chercher, je ne trouve pas la réponse.

Voilà ce que je dois faire :

J'ai un fichier ou chaque onglet comprend la somme des commissions d'une personne (j'en ai plus de 500)

J'aimerais pouvoir rassembler les divers tableaux l'un en dessous de l'autre sur un seul onglet et dans l'ordre des onglet.

Je joins deux fichiers, le premier étant celui de base, le second, ce que j'aimerais faire au final.

Merci d'avance

Bonjour,

Précisions:

toutes les feuilles (sauf la 1ère "Total") sont à traiter ?

faudra-t-il supprimer ces feuilles dans la foulée ?

et ne conserver que "Total" ?

Amicalement

Claude

C'est la même chose pour moi...

Au pire je copie et colle la première page dans un nouveau fichier.

Merci

-- 25 Jan 2011, 15:37 --

Et toutes les feuilles sont à traiter et placer dans l'onglet total

Si toutes tes feuilles sont bien dans l'ordre (Feuil1, Feuil2, Feuil3), comme c'est le cas dans ton exemple, voici une proposition.

A te relire.

C'est parfait !

j'ai appliqué la macro au fichier d'origine et c'est parfait!

Merci encore à ce forum sans lequel je me retrouverais de longues heures à m'endormir devant mon écran^^

re,

Sub RegroupeFeuilles()
Dim Lg%, i%
Application.ScreenUpdating = False
    For i = 2 To Worksheets.Count
        With Worksheets(i)
            Lg = .Range("a65536").End(xlUp).Row
            .Range("a1:o" & Lg).Copy Destination:= _
            Sheets("Total").Range("b65536").End(xlUp)(2)
        End With
    Next
End Sub

Claude