Sub RegroupeFeuilles() 'dans "Récap"
Dim Lg&, Sh As Worksheet, f As Worksheet
With Application: .Calculation = xlCalculationManual: .EnableEvents = False: End With
Set f = Sheets("Récap")
f.Range("a2:h" & f.[a65536].End(xlUp).Row).ClearContents 'efface Récap
For Each Sh In Worksheets
If Sh.Name <> f.Name And Sh.Name <> "Accueil" And Sh.Name <> "Synthèse" And Sh.Name <> "Modèle" And Sh.Name <> "Données" Then 'feuilles à ne pas traiter
Lg = Sh.Range("i" & Rows.Count).End(xlUp).Row
Sh.Range("a17:h" & Lg).Copy Destination:= _
f.Range("a" & Rows.Count).End(xlUp)(2)
End If
Next
With Application: .Calculation = xlCalculationAutomatic: .EnableEvents = True: End With
End Sub