1 2 3 4 5 6 7
| monclasseur.ActiveSheet.Range(monclasseur.ActiveSheet.Range(monclasseur.ActiveSheet.Range("A1"), _
monclasseur.ActiveSheet.Range("A1").End(xlToRight)), _
monclasseur.ActiveSheet.Range(monclasseur.ActiveSheet.Range("A1"), _
monclasseur.ActiveSheet.Range("A1").End(xlToRight)).End(xlDown)).Sort Key1:=monclasseur.ActiveSheet.Range("A2"), _
Order1:=xlAscending, Key2:=monclasseur.ActiveSheet.Range("B2") _
, Order2:=xlAscending, Key3:=monclasseur.ActiveSheet.Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom |
Partager