Autres Macro erreur

Bonjour le fil, marco22

marco22
Voir du côté de UserInterfaceOnly
(ou déprotection en début de code puis reprotection en fin de code)

NB: Si on pouvait lire le code de ta macro, cela aussi éclairerait notre lanterne

Je ne sais pas si c'est cela que tu voulais voir!
J'ai fais un copier coller de Visual Basic
si cela peut résoudre mon problème sinon je vais t'envoyer mon fichier Excel
merci

Sub Class18_19()
'
' Class18_19 Macro
'
'
Sheets("Feuil1").Select
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.SmallScroll Down:=12
Rows("20:140").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-8
Range("H3:K17").Select
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-4
Range("B2").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("D317") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("B2:E17")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Re,

marco22
Normalement, ta macro ainsi revisitée devrait faire la même chose que l'originale, non ?
(la proctection de la feuille en plus)
Je te laisse tester.

Je n'ai pas réussi, j'ai fais un copier coller dans visual basic cela n'a pas fonctionné;
je t'envoi le fichier
ce que je voudrais faire c'est quand je suis par exemple dans la feuille 20_21 et que je clique sur le bouton classement cela m'envoie directement au classement feuille ligne 40 sans voir les autres classements.
Je te remercie et te souhaite une bonne soirée
@+m@rco