Macro pour compiler mes données

Sub Macro2()
Application.ScreenUpdating = False
Dim Ligne As Long, Dlig As Long, Nombre As Long
With Sheets(1)
'Efface les données dans l'onglet 1
.Cells.ClearContents
'Copie la ligne d'en-tête
Sheets(2).Rows("1:1").Copy .Range("A1")
End With
For Nombre = Sheets.Count To 2 Step -1
With Sheets(Nombre)
'calucule première ligne vide onglet 1
Ligne = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A3:AO" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets(1).Range("A" & Ligne)
End With
Next Nombre
Application.ScreenUpdating = True
End Sub