Bonjour,

Je cherche à obtenir un tri rapide d'une liste sur un critère simple.
La macro enregistrée me donne notamment la ligne suivante parmi d'autres ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
ActiveWorkbook.Worksheets("LISTE").ListObjects("Tableau2").Sort.SortFields. _
        Add2 Key:=Range("B4:B156"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortTextAsNumbers
L'idée est de pouvoir appliquer ce tri en fonction de la colonne de la cellule active (pas nécessairement colonne B)

Je bloque un peu sur la syntaxe pour définir correctement le Range en utilisant une variable 'col' par ex

Merci d'avance pour votre aide

Phil.D