jai un souci le créateur du programme a écrit une instruction et j y comprend rien si vous pouviez m aider sa m arrangeré, voici l instruction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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