Compiler Feuilles d'un meme classeur

Sub Combine()
Dim J As Integer
Dim dl As Long
Dim x As Long
On Error Resume Next
Sheets(1).Select
Worksheets.Add ' add a sheet in first place
Sheets(1).Name = "Combined"
' copy headings
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
' work through sheets
For J = 2 To Sheets.Count ' from sheet 2 to last sheet
Sheets(J).Activate ' make the sheet active
Range("A1").Select
Selection.CurrentRegion.Select ' select all cells in this sheets
' select all lines except title
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
' copy cells selected in the new sheet on last line
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
With Sheets("Combined")
    .Columns("B:C").Delete Shift:=xlToLeft
    dl = .Range("A65536").End(xlUp).Row
    For x = dl To 2 Step -1
        If .Cells(x, 1).Value = 0 Then .Rows(x).Delete
    Next x
End With
End Sub

For x = dl To 2 Step -1
        If .Cells(x, 1).Value = 0 Then .Rows(x).Delete
    Next x

    For x = dl To 2 Step -1
        If .Cells(x, 1).Value = 0 And .Cells(x, 4).Value = 0 Then .Rows(x).Delete
    Next x

Sub Consolidated()
Dim o As Workbook 'déclare la variable o (classeur Origine)
Dim c As Workbook 'déclare la variable c (classeur Cible)
Dim f As Worksheet 'déclare la variable f (Feuille)
Dim x As Integer 'déclare la variable x
Dim dest As Range 'déclare la variable dest (DESTination)
Dim p As Range 'déclare la variable p (Plage)
 
Set o = ThisWorkbook 'définit la variable o
Set c = Workbooks("Consolidated.xls") 'définit la variable c
Set f = c.Sheets("Consolidated") 'définit la variable f
 
' copie les étiquettes
o.Sheets(1).Range("A1").EntireRow.Copy Destination:=f.Range("A1")
 
' copie des données
For x = 1 To Sheets.Count 'boucle sur tous les onglets
 
    'si l'onglet est "Combined" passe à l'onglet suivant via l'étiquette "fin"
    If Sheets(x).Name = "Combined" Then GoTo suite
 
    Set dest = f.Range("A65536").End(xlUp).Offset(1, 0) 'défnit la variable dest
    dest.Offset(0, 5).Value = o.Name 'copie le nom du classeur sur la première ligne vide
    dest.Offset(0, 6).Value = Sheets(x).Name 'copie le nom de l'onglet en cours
    dest.Offset(0, 7).Value = Date 'copie la date
    Sheets(x).Activate 's'électionne l'onglet de la boucle
    Set p = Range("A1").CurrentRegion 'définit la variable p
    ' redéfinit la variable p sans les titres
    Set p = p.Offset(1, 0).Resize(p.Rows.Count - 1)
    'copie et colle les données
    p.Copy Destination:=dest
 
suite: 'étiquette
 
Next x
 
End Sub