tri par ordre croissant d'une colonne

[sylv900]

salut à tous
a priori rien de compliqué mais le code suivant ne fonctionne pas :

ActiveSheet.Columns('A:A').Select
Selection.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

si quelqu'un a la solution?
merci

 

[sylv900]

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