Salut à tous,
Ben,
qu'est ce qui ne va pas dans ta macro?
Chez moi elle fonctionne très bien,
la même aux espaces de soulignement près ,peut être est ce cela qui te gênait...
Sub ReportFeuille()
Dim Ligne, Nombre As Long
Sheets(1).Range("A1").CurrentRegion.ClearContents
For Nombre = Worksheets.Count To 2 Step -1
Sheets(Nombre).UsedRange
Ligne = Sheets(Nombre).Range("a1") _
.SpecialCells(xlCellTypeLastCell).Row
Sheets(1).Rows("1:" & Ligne).EntireRow.Insert shift:=xlDown
Sheets(Nombre).UsedRange.Copy Destination:=Sheets(1).Range("a1")
Application.CutCopyMode = False
Next Nombre
End Sub
fais un copier coller intégral de ça et tiens nous au courant si ça fonctionne ou pas , et en décrivant exactement ce que tu fais si ça marche pas ...
@bientôt
Steplof.