Option Explicit
Sub test()
Dim maplage As Range, l As Long, t As Variant, f As String 'zi As String
Set maplage = Range("A11:N" & Range("A65536").End(xlUp).Row)
t = maplage
f = Range("G11").FormulaLocal
For l = 1 To maplage.Rows.Count
Range(maplage(l, 8), maplage(l, 12)).Sort Key1:=maplage(l, 8), Order1:=xlDescending, Orientation:=xlLeftToRight
Next l
maplage.Sort maplage(1, 13), xlDescending, maplage(1, 11), , xlDescending, maplage(1, 12), xlAscending, xlNo, , , xlSortColumns
maplage.Sort maplage(1, 13), xlDescending, maplage(1, 11), , xlDescending, maplage(1, 7), xlDescending, xlNo, , , xlSortColumns
With ActiveSheet
'zi = .PageSetup.PrintArea
.PageSetup.PrintArea = Range("Q135:AE" & 142 + maplage.Rows.Count - 1).Address
.PrintOut
'.PrintPreview
'.PageSetup.PrintArea = zi
End With
maplage = t
Range("G11").FormulaLocal = f
Range("G11").AutoFill Range("G11:G" & Range("G65536").End(xlUp).Row)
End Sub