Bonjour,
J'ai 8 feuilles dans un classeur, je souhaiterai créer un bouton sur chaque feuilles permettant un tri, pour cela j'ai créer une macro de tri. Cela fonctionne sur la feuille où je crée la macro mais lorsque je crée le bouton sur la feuille suivante, la macro ne fonctionne pas! J'aimerai savoir comment créer une macro que je puisse affecter à un bouton sur les 8 feuilles? Je vous joins le code la macro créée pour la 1ère feuille qui se nomme "3":
 
Sub TRISCOREGDG()
'
' TRISCOREGDG Macro
'
 
'
    Range("B5" ).Select
    ActiveCell.FormulaR1C1 = "5"
    Range("C5" ).Select
    ActiveCell.FormulaR1C1 = "6"
    Range("B6" ).Select
    ActiveCell.FormulaR1C1 = ""
    Range("B9" ).Select
    ActiveCell.FormulaR1C1 = "4"
    Range("C9" ).Select
    ActiveCell.FormulaR1C1 = "5"
    Range("A4:D79" ).Select
    ActiveWindow.SmallScroll Down:=-81
    ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Add Key:=Range("C5:C79" ), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("03" ).Sort
        .SetRange Range("A4:D79" )
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F4" ).Select
    ActiveWindow.SmallScroll Down:=3
End Sub
 
Je vous remercie pour l'attention que vous vous voudrez bien apporter à mon problème.
Petite précision, je suis novice dans ce domaine!

Bonjour,
 
La macro que tu as écrit ne fonctionne que pour la première feuille qui se nomme "03".
Ceci est précisé dans les lignes :
ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Clear
 
il faut remplacer

par

 
Cordialement