Bonjour titi, le forum,
J'ai réussi à m'en soritr en modifiant le code :
Sheets("Nom").Range(Cells(14, k - 1), Cells(last_op, k + 2)).Select
Sheets("Nom").Cells(14, k - 1).Select
Selection.Sort Key1:=Sheets("Nom").Cells(14, k - 1), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Je sais pas si c'est très correct mais ça marche...
Merci à toi titi, je vais tenter ta soluce !