Sub presentation()
Dim Sh As Worksheet, Lig&
Application.ScreenUpdating = False
Sheets("RESUME").Cells.Clear
Lig = 1
For Each Sh In Sheets(Array("janvier", "fevrier", "mars")) 'ici ajouter le nom(exact) des feuilles s'il y a lieu
With Sheets("RESUME")
.Cells(Lig, 1) = Sh.Name
.Range(.Cells(Lig, 1), .Cells(Lig, 4)).HorizontalAlignment = xlCenterAcrossSelection
Lig = Lig + 1
Sh.UsedRange.Copy .Cells(Lig, 1)
Lig = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
End With
Next
Application.ScreenUpdating = True
End Sub