Rebonjour Doriane,
Il ne faut pas que tu utilises ta ligne de titre ici F2 dans mon exemple
Voilà ce qu'on peut avoir en utilisant l'enregistreur de macro
Range("F2:F15").Select à remplacer par Range("F3:F15")
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
A++++