XL 2019 Bouton de macro pour tri alphabétique

[DJISA]

Bonsoir le Forum!
Nous avons créer cette macro pour trier alphabétiquement des listes nominatives. Le problème est qu'elle ne s'applique qu'à l'onglet "5B". Nous voudrions la modifier pour l'étendre aux autres onglets classes, ici 6A, 3A, 3B.
La macro:

Sub Tri_alpha()

   Range("Tableau95B").Select
    ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Add2 _
        Key:=Range("Tableau95B[Prénom]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Add2 _
        Key:=Range("Tableau95B[Nom]"), SortOn:=xlSortOnValues, Order:=xlAscending _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Merci
DJISA

 

[DJISA]

Bonsoir Danreb, Le Forum!
Génial. Cela marche! C'est exactement ce que cherchais!
Merci
DJISA