Bonjour JC de Lorient,
Essayes de remplacer le code :
Selection.Sort Key1:=Range('C2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
par :
Selection.Sort Key1:=Range('C2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Cordialement
Bernard