Trier de droite vers gauche au lieu de haut vers bas

[carlos]

Bonjour,
bizarrement ce code qui marchait avant se met à me faire un tri de droite vers la gauche.

Range("B7:bz" & Range("b65000").End(xlUp).Row).Sort Key1:=Cells(7, 2), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1
Range("A4").Select

Les options de tri sont effectivement modifiés sous : Données/trier/Options/Orientation.
Comment rétablir par vba ce problème?
Merci
Carlos

 

[carlos]

Re : Trier de droite vers gauche au lieu de haut vers bas

Bonjour
voici la solution que j'ai trouvée
With ActiveSheet.Sort
.Orientation = xlTopToBottom
End With

Bonne journée
Carlos