VBA Macro de tri horizontal

Question

Bonjour à tous ;o)

J'ai bricolé cette macro (en grand partie avec l'enregistreur) qui me permet de trier un grand tableau (("BASE_data")) horizontalement en prenant pour critères de tri le contenu de la première ligne Range("test_mois").

J'ai fais ça sous Excel 2019 et ça fonctionne parfaitement, mais sous Excel 2010 ça plante systématiquement sur la seconde ligne...

Je pense que ce code doit être améliorable pour le rendre plus "diffusable". 

Je suis preneur de tout conseil ou proposition ! ;o))

Merci

Domi

    ActiveWorkbook.Worksheets("BASE").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("BASE").Sort.SortFields.Add2 Key:=Range("test_mois"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("BASE").Sort

        .SetRange Range("BASE_data")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlLeftToRight

        .SortMethod = xlPinYin

        .Apply

    End With

Answer 1

En fin de compte j'ai fini par trouver comme alléger ça se la façon suivante et ça semble tourner

   Worksheets("BASE").Sort.SortFields.Clear

    Application.Goto Reference:="BASE_data"

    Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight

Merci tout de même ;o)

Domi