With Sheets("Prélèvements")
.Columns("G").NumberFormat = "General"
With .Range("A1").CurrentRegion
[B][COLOR="Red"].Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("G2"), Order2:=xlAscending, Header:=xlYes 'Ici erreur 1004 Référence de tri non valide [/COLOR][/B] .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.Font.Size = 8
End With
.Columns("A:I").AutoFit
With .Columns("J")
.ColumnWidth = 50
.ShrinkToFit = True
End With
.Columns("H").End(xlDown).Font.Bold = True
End With