Option Explicit
Sub Synthèse()
Dim W As Worksheet, i As Long
With Sheets("Recap")
.[A9:J65536].ClearContents
Application.ScreenUpdating = False
For Each W In Worksheets
If W.Name <> .Name Then W.Range("A9:J" & W.[A65536].End(xlUp).Row).Copy .[A65536].End(xlUp)(2)
Next
.[A9:J65536].Sort Key1:=.[A9], Order1:=xlAscending, _
Key2:=.[B9], Order2:=xlAscending, Header:=xlNo
End With
End Sub