Je n'ai pas trouvé le moyen de parametrer xlAscending / xlDescending dans

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
ActiveWorkbook.Worksheets("feuil1").Sort.SortFields.Add Key:=Range( _
       "C1:C73"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
qui se trouve dans une procédure appelée.

De même pour ma suppression des doublons que je peux faire sur X colonnes, je ne peux pas remplacer Columns:=Array(1, 2, 3, 4, 5) ou Array(1, 2, 3, 4, 5) par une variable CRITERES que je construirai à volonté pour avoir :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
    ActiveSheet.Range("$A$1:$J$21137").RemoveDuplicates CRITERES , Header:=xlNo
ou
ActiveSheet.Range("$A$1:$J$21137").RemoveDuplicates Columns:=CRITERES, Header:=xlNo
au lieu de

Code : Sélectionner tout - Visualiser dans une fenêtre à part
   ActiveSheet.Range("$A$1:$J$21137").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
Mais peut-êrtre que ce n'est pas possible et qu'il faut que je contourne le problème autrement.

Merci d'avance