Sub Synthèse()
Dim Sh As Worksheet
With Sheets("Synthèse")
.[A2:J65536].Clear
Application.ScreenUpdating = 0
For Each Sh In Worksheets
If Sh.Name <> .Name Then
Sh.Range("A11:J" & Sh.[A65536].End(xlUp).Row).Copy
.[A65536].End(xlUp)(2).PasteSpecial (xlPasteValues)
End If
Next
.[A2:J65536].Sort Key1:=.[G2], Order1:=xlAscending, Header:=xlNo
End With
End Sub