Assembler tous les onglets en 1 seul

Bonjour Michel,

Voici une macro qui copie le contenu de toutes les feuilles du classeur à
compter de la deuxième feuille vers la première feuille du classeur.
Le contenu de la première feuille du classeur est effacé à chaque lancement
de la macro.
--
Sub CopieFeuilles()
Dim i As Long
Dim f As Integer
Dim Plage As Range
Dim NbLignes As Long
Dim NbColonnes As Integer
Sheets(1).Cells.Clear
i = 1
For f = 2 To Sheets.Count
If Application.CountA(Sheets(f).Range("A1"). _
CurrentRegion) > 0 Then
With Sheets(f)
NbLignes = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
NbColonnes = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Cells(1, 1), .Cells(NbLignes, NbColonnes))
End With
Plage.Copy Destination:=Sheets(1).Range("A" & i)
i = Sheets(1).Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
End If
Next f
End Sub
--

Lydya

-------
"Help Me" <help@me.com> a écrit dans le message de
news:41593ab7$0$14344$79c14f64@nan-newsreader-05.noos.net...

Bonjour

Vous auriez une soluce pour cela, en aeemblant donc tous les onglets d'un
doc dans 1 seul, en le mettant à la suite...

MErci de votre aide

Michel