Bonsoir
La macro n'est pas en cause, elle fait ce que l'on lui demande
Dans la feuille production tu as 2 mois de janvier (janvier 2011 et janvier 2013)
On lui a demandé de trier en fonction de la date et de faire des sous-totaux à chaque changement de mois, ce qu'elle à fait
Modifies le tri (partie surlignée)
With .Range("A4:G" & .Range("A" & Rows.Count).End(xlUp).Row)
.Sort key1:=.Range("G4"), order1:=xlAscending, key2:=.Range("B4"), order2:=xlAscending, _
Header:=xlYes, dataoption1:=xlSortNormal, dataoption2:=xlSortNormal
.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End With