XL 2013 Regrouper une sélection de cellules de plusieurs onglets sur un seul

Sub Consolider()
    Application.ScreenUpdating = False
    Cells.ClearContents                             ' Effacement feuille
    For Each Feuille In Worksheets                  ' Pour toutes les feuilles
        If Feuille.Name <> "Tout" Then              ' "Tout" est la feuille de consolidation, à modifier.
            DL = Range("A1000000").End(xlUp).Row    ' Première ligne libre
            Range("A" & DL + 1 & ":J" & DL + 100) = Sheets(Feuille.Name).Range("E1:N100").Value ' Copier Coller valeurs
        End If
    Next Feuille
    [A1:J1].Delete Shift:=xlUp                      ' Suppression première ligne
    Columns.AutoFit                                 'Ajustement largeurs colonnes
    [A1].Select
    Application.ScreenUpdating = True
End Sub