j'ai réussi à retrouver le bon code tout seul, je vous le donne pour info :
Worksheets('Export').Range('A1').Sort _
Key1:=Worksheets('Export').Columns('A'), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
je pense qu'il y avait confusion dans les feuilles sélectionnée(?)
salut