Salut Stéphane,
J'ai fait simple,
J'ai sélectionné la cellule F6 que j'ai nommée Lien, ensuite je me sert de cette cellule afin de déterminer la colonne de tri de la façon suivante:
Range("B5:V25").Sort Key1:=Cells(6, Range("Lien")), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
J'espère que c'est ce que tu cherché à faire
@+ tard
Valérie