Option Explicit
Sub Synthèse_autre_cas()
Dim o As Object, sy As Object
Set sy = Sheets("synthese")
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
sy.Activate
Range("a3:m65000").Clear
For Each o In Worksheets
If o.Name <> "synthese" And o.Range("A5") Like "NOM*" Then
o.Range("d5").Copy sy.Range("a" & Rows.Count).End(xlUp)(2)
o.Range("e88").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 1)
o.Range("d33").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 2)
o.Range("e90").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 3)
o.Range("e132").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 4)
o.Range("f148").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 5)
o.Range("d144").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 6)
o.Range("e162").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 7)
o.Range("e143").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 8)
o.Range("d149").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 9)
o.Range("d150").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 10)
o.Range("d151").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 11)
o.Range("f143").Copy sy.Range("a" & Rows.Count).End(xlUp).Offset(, 12)
End If
Next
Range("a3").CurrentRegion.Borders.Value = 1
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub