XL 2016 Collage plage provenant de plusieurs onglets dans ordre defini

Sub CopierColler()
  Dim ShtD As Worksheet ' Feuille de Destination
  Dim DLigS As Long ' Dernière ligne source
  ' Définir la feuille des destination
  Set ShtD = ThisWorkbook.Sheets("COLLAGE1")
  ' Avec la 1ère feuille à coller
  With Sheets("COLLAGE2")
    DLigS = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A4:AZ" & DLigS).Copy Destination:=ShtD.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
  End With
  ' Avec la 2ème feuille à coller
  With Sheets("COLLAGE3")
    DLigS = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A4:AZ" & DLigS).Copy Destination:=ShtD.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
  End With
  ' Avec la 3ème feuille à coller
  With Sheets("COLLAGE4")
    DLigS = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A4:AZ" & DLigS).Copy Destination:=ShtD.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
  End With
  ' Effacer les variable objet
  Set ShtD = Nothing
End Sub

Sub CopierCollerEnBouclant()
Dim ws As Worksheet, DLigS As Long
' Définir la feuille des destination
Set ShtD = ThisWorkbook.Sheets("COLLAGE1")
For Each ws In Worksheets
If Right(ws.Name, 1) * 1 > 1 Then
DLigS = ws.Range("A" & Rows.Count).End(xlUp).Row - 3
ws.Range("A4").Resize(DLigS, 52).Copy Destination:=ShtD.Range("A" & Rows.Count).End(3)(2)
Application.CutCopyMode = False
End If
Next
End Sub