regrouper feuilles dans une feuille

Option Explicit
Sub Consolidation()
Dim DerL&
    Cells.ClearContents
    With Sheets("Synthèse")
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("AA").Range("A1:E" & Sheets("AA").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("BB").Range("A1:E" & Sheets("BB").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("CC").Range("A1:E" & Sheets("CC").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
        DerL = Range("A65535").End(xlUp).Row + 1
        Sheets("DD").Range("A1:E" & Sheets("DD").Range("A65535").End(xlUp).Row).Copy .Cells(DerL, 1)
    End With
End Sub

 For Each s In Array("aa", "bb", "cc", "dd")
 With Sheets(s)
'code copy
 Next s
 End With