Optimisation d'un code de tri

Bonjour le forum

J'ai le code ci dessous qui fonctionne très bien (obtenu via l'éditeur de macro Excel que j'ai par la suite allégé). Je pense qu'il est possible de faire encore plus simple, mais la je sèche

Sheets("BASE").ListObjects("Tableau1").Sort.SortFields.Clear
Sheets("BASE").ListObjects("Tableau1").Sort.SortFields.Add Key:=Range("A2"), Order:=xlAscending
Sheets("BASE").ListObjects("Tableau1").Sort.Apply

De plus le tableau dans lequel j'effectue le tri se trouve sur une feuille BASE et le code est exécuté depuis une feuille MENU. Il se trouve qu'après exécution du code des cellules sont sélectionnées sur la feuille MENU. En sois ce n'est pas pénalisant mais pas très esthétique.

Bonjour,

Essaie ainsi :

Dim lo As ListObject
    Set lo = Worksheets("BASE").ListObjects("Tableau1")
    With lo
        .Sort.SortFields.Add Key:=.ListColumns(1).DataBodyRange
        .Sort.Apply
        .Sort.SortFields.Clear
    End With