Bonjour,

Tout est dans le titre...

Je sais changer la couleur d'une forme...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub test()
 
ActiveSheet.Shapes("1").DrawingObject.Interior.ColorIndex = 3
 
End Sub
...Mais je ne n'arrive pas le faire au survol de la souris. Quelqu'un aurait-il une solution?

Merci d'avance