Option Explicit
Sub Récap()
Dim X%
Dim DerLC%
Dim DerLS%
For X = 2 To Sheets.Count
DerLS = Sheets(X).Range("A65536").End(xlUp).Row
DerLC = Feuil1.Range("A65536").End(xlUp).Row
Sheets(X).Range("A9:N" & DerLS + 1).Copy Feuil1.Range("A" & DerLC + 1)
DerLC = DerLC + 1
Next X
End Sub