Sub Synthèse()
Dim Sh As Worksheet, X&
With Application
.ScreenUpdating = 0
.Calculation = xlCalculationManual
End With
With Sheets("Synthèse")
.[A2].Resize(.UsedRange.Rows.Count, 8).Clear
For Each Sh In Worksheets
If Sh.Name < > .Name Then
X = Sh.Range("A65536").End(xlUp)(2).Row
.[A65536].End(xlUp)(2).Resize(X - 1, 8).Value = Sh.Range("A2:H" & X).Value
End If
Next
.[A2:H65536].Sort Key1:=.[B2], Order1:=xlAscending, Header:=xlNo
End With
With Application
.ScreenUpdating = 1
.Calculation = xlCalculationAutomatic
End With
End Sub