trier en VBA

[LAURA15]

Je voudrais trier des données que j'ai importées d'access
Le nombre de colonne est fixe mais pas le nombre de lignes
Les colonnes vont de A a O
Le premier critère de tri doit etre la conne B qui est la date et le 2eme critère doit etre la colonne B
Ce tri ne doit ce faire que sur la 1ère feuille appelée BASE_RECETTES
J'ai fait ca mais bon snif ca ne fonctionne pas

Sub Tri_Date_Recettes()
Range('A6').Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Sort Key1:=Range('B6'), Order1:=xlAscending, Key2:=Range( 'A6'), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub



La dernière partie a été fait d'après une macro j'ai certainement mis trop de critère en gros si on veut trier
par exemple avec 2 critères la en l'occurence Collone B puis A en ordre
croissant que doit 'on mettre ?
Merci