Merci à vous deux pour vos solutions qui se rejoignent
J'avais regardé un peu très, très vite la première solution de Jean-Eric et comme elle était écrite sur plusieurs lignes, j'avais pensé à une solution du genre With/End with.
Mais en plaçant nos deux codes cotes à cotes, la solution saute effectivement aux yeux :
Range("H3:Q14").Sort Key1:=Range("I3"), Order1:=xlDescending, Header:=xlNo, Key2:=Range("Q3"), Order1:=xlDescending, Header:=xlNo
Range("H3:Q14").Sort Key1:=Range("I3"), Order1:=xlDescending, Key2:=Range("Q3"), Order2:=xlDescending, Header:=xlNo