Bonjour
Me revoilà avec un nouveau problème.
J'arrive à faire le sous total-par macro sur le premier onglet, cela dit il ne le fait pas sur les onglets suivants pourtant j'ai bien ajouté la ligne pour (je crois)
J'ai fais ça avec l'enregistreur de macro :
Sub sstt()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
Rows("10:10000").Select
Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(5, 23), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Next ws
Sheets("Accueil").Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub