Désactiver bouton Excel avec macro

Désactiver un bouton et le griser :

Sub ChangeButton()
dim bt As Button
Set bt = activeworkbook.worksheets("Sheet1").Buttons("Button 1")
if bt.Enabled = true then
bt.Enabled = false
bt.Font.Color = RGB(255, 251, 240)
Else
bt.Enabled = true
bt.Font.Color = RGB(0, 0, 0)
end if
end Sub

Excel 2003

en fait, pour que mon 1er bouton soit désactivé et grisé, il faut que l'utilisateur clic sur ce 1er bouton puis sur un second et seulement à partir de ce moment là, le 1er bouton doit être désactivé et grisé.

J'ai fait mon code sur mon 1er bouton,, puis mon code sur le 2ème bouton et à la fin de ce 2ème code j'appelle la fonction changebutton (qui doit donc désactiver et griser le 1er bouton) mais ça ne marche pas!

Il me met un message de débogage ou de fin

Bonjour,

Voici mon pb :

j'ai créé des boutons dans ma feuille Excel qui sont reliés à des macros.<<-----------Quel Excel?

Il y a 3 boutons, ce que je veux c'est savoir comment désactiver et griser un bouton lorsqu'on a cliqué dessus (en langage VBA 6.3).

Pouvez-vous m'aider?

Merci d'avance

Merci beaucoup je vais tester

c'est bon j'ai trouvé, comme je protège mes feuilles et mes boutons, je n'avais pas placé la commande au bon endroit ;-)

merci beaucoup de votre aide