Bonjour,
Après avoir consulté les FAQ, j'ai testé le code ci_dessous sur deux ordinateurs différents sous excel 2010.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Public Sub test()
MsgBox Application.CommandBars("Ply").Controls(2).Caption 'Renvoie  "&Supprimer"
Application.CommandBars("Ply").Controls(2).Enabled = False
'Vérification
MsgBox Application.CommandBars("Ply").Controls(2).Enabled 'Renvoie False
End Sub
Clic droit sur le nom de la feuille:
- sur l'un le contrôle "Supprimer" est grisé.C'est ce que je souhaite.
- sur l'autre, le contrôle "Supprimer" reste actif.

Quelqu'un a t il une idée?

Je précise que sur l'ordinateur où l'inactivation du bouton "Supprimer" échoue, le code suivant fonctionne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.CommandBars("Cell").Controls(2).Enabled = False