Macro tri sous Excel 2013

Bonjour,

Avec l'enregistreur de macro j'obtiens ce code :

Sub Tri()
    Range("A4:E32").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B4:B32"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A4:A32"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A4:E32")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

J'essai depuis pas loin d'une heure de l'optimiser un peu comme pour 2003 mais je n'y arrive pas

Pas possible le key1 key2 sur 2013 ?

Sub Tri()
Range("A4:E32).Sort Key1:=Range("B4"), Order1:=xlDescending, Key2:=Range("A4"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
End Sub

Finalement ça fonctionne à l'ancienne, c'est moi qui est une erreur de syntaxe...

En revanche j'ai utilisé moins d'options..., c'est peut être ça qui m'a gêné...