|
|
|
|
Je ne sais pas si vous avez déjà eu la réponse mais voici un exemple que j'utilise
'Tri par ordre croissant
Range("A2", "A" & Range("A1").End(xlDown).Row).Select
selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
|