XL 2010 Aide macro copier des cellules d'onglet dans un autre onglet

Sub CopieJJ()
    Dim sh As Worksheet, Derlg As Long
    Sheets("Tous").Activate
    Cells.Clear
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> ActiveSheet.Name Then
            Derlg = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
            sh.Range("a1:d" & Derlg).Copy
            Range("a" & Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        End If
    Next
    Application.ScreenUpdating = True
End Sub

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