Bonjour,

Ci-dessous le ci-ode VBA généré par Excel pour trier une sélection dans une feuille donnée (ici ES).
Je sois effectuer ce même tri dans le même classeur mais pour d'autres feuilles.
Je voudrais n epas devoir créer la même Macro en changeant seulement le nom de la feuille.
Comment modifier ce code pour qu'il puisse s'appliquer sur chaque feuille?

Merci pour votre réponse

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Tri_num_mat()
' Tri_num_mat Macro
'
 
    Range("A82:Q101").Select
    ActiveWorkbook.Worksheets("ES").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ES").Sort.SortFields.Add Key:=Range("A82:A101"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ES").Sort
        .SetRange Range("A82:Q101")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A82").Select
End Sub