tu veux dire Range("A7").Select ou tous les autres?j'ai essayé mais ???
désolé, je suis un peu lent ce soir....
en plus, maintenant quand je fais le classement, le débogueur apparait...je n'y comprends plus rien...
Range("A6").Select
Selection.Sort Key1:=Range("F7"), Order1:=xlAscending, Key2:=Range("D7") _
, Order2:=xlAscending, Key3:=Range("A7"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom