bouton qui change de couleur + cellulle

Bonjour
j'ai un bouton qui a une macro et qui change de couleur quand je click dessus et qui reprends sa couleur origine quand on reclique dessus
le code :
Private Sub CommandButton1_Click()
If CommandButton1.BackColor = &HFF00& Then
CommandButton1.BackColor = &HC0C0C0
Else
CommandButton1.BackColor = &HFF00&
End If
tour2 ( ma macro )
End Sub
ma question est :
peut ton rajouter a ce code , une commande pour qu'il change la couleur d'une cellule designe en meme temp que le bouton
merci pour votre aide