Soit...
Tu admettras que c'est à la portée de tout le monde...
Pourquoi un IF : pour éviter la répétition incessante de l'instruction et un éventuel scintillement, l'événement MouseMove étant, par essence, permanent !
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'
If Me.Label1.BackColor <> &HFF& Then Me.Label1.BackColor = &HFF&
'
End Sub
Clic sur la feuille pour ouvrir l'USF.
A+