Hello,
Voici une propo, par contre ce genre de macro posera plus de problèmes que d'utilités (risque de conflits si execution avec des boucles de macros, utilisation de ressources qui peut poser de pb sur un notebook, par exemple). A toi de voir.
Pour que ça marche il faut un bouton activex et ensuite lors du déplacement de la souris le bouton change de couleur.
Private Sub CommandButton21_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If CommandButton21.BackColor = 14737632 Then 'si gris alors
CommandButton21.BackColor = 1437500 'vert
Else
CommandButton21.BackColor = 14737632 'gris
End If
End Sub