Salut Bruno, le Forum
Pourquoi n'utilises-tu pas le tri Excel ?
Selectionner B5:E10
Données- trier
1) Ordre croissant performance
2) Ordre croissant âge
3) Ordre croissant dossard
et cocher ligne de titres
ce qui donne en utilisant l'enregistreur :
Range("B5:E10").Select
Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Key2:=Range("E6"), Order2:=xlAscending, Key3:=Range("C6"), Order3:=xlAscending, Header:= xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Et bien sûr en G6 : = B6
Bonne journée
PhiBou