Je crois
Range("a6
T1000").Select selectionne la plage à trier
Selection.Sort Key1:=Range("E6"), premiere le de tri
Order1:=xlAscending, par ordrecroissant
Key2:=Range("b6") _ deuxieme cle de tri
, Order2:=xlAscending, par ordre croissant
Key3:=Range("d6") _ Troisiem
, Order3:=xlAscending, croissant
Header:=xlGuess il y a des entetes
, OrderCustom:=1, pour ces deux ligne j'ai un trou
MatchCase:= False,
Orientation:=xlTopToBottom du haut vers le bas
Range("f2").Select a la fin du tri la cellule F2 est active
CORDIALEMENT
G.David