Trier de droite vers gauche au lieu de haut vers bas

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