Copier/Coller TCD les uns à la suite des autres

Sub Copier()

Dim Ind As Integer, DligS As Long, DligD As Long
Dim Sht As Worksheet, TabS() As String

With ActiveSheet
.Select
 Set plage = .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 3))
        plage.ClearContents
End With

'definir la liste des feuilles à copier

TabS = Split("SEM 1,SEM 2,SEM 3,SEM 4,SEM 5", ",")
With ActiveWorksheet
    For Ind = 0 To UBound(TabS)
    'Definir la feuille à copier
    Set Sht = Worksheets(TabS(Ind))
    'trouver la dernière ligne du Tcd
    DligS = Sht.Range("Z" & Rows.Count).End(xlUp).Row
     'trouver la dernière ligne du tableau du mois
    DligD = .Range("A" & Rows.Count).End(xlUp).Row
    'copier le tableau
    Sht.Range("Z3:AB" & DligS).Copy
    .Range("A" & DligD + 1).PasteSpecial Paste:=xlPasteValues
    Next Ind
End With

End Sub