Si tu te sers de l'éditeur automatique de macro il produit un petit bug ce qui donne ceci :
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess,OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
CHANGER / xlGuess EN xlno
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlno,OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Les formules sont prisent en compte pour le trie et ne devraient pas poser de Pbs.
Cordialement