Option Explicit
Sub test()
Dim maplage As Range, l As Long, t As Variant, zi As String
Set maplage = Range("A11:N" & Range("A65536").End(xlUp).Row)
t = maplage
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
maplage.Sort maplage(1, 13), xlDescending, maplage(1, 11), , xlDescending, maplage(1, 1), xlAscending, xlNo, , , xlSortColumns
With ActiveSheet
zi = .PageSetup.PrintArea
.PageSetup.PrintArea = Range("A1:N" & Range("A65536").End(xlUp).Row).Address
.PrintOut
.PageSetup.PrintArea = zi
End With
maplage = t
End Sub