Essaie quelque chose comme ça :
j'ai un UserForm avec un bouton (btn1)
quand la souris est sur le bouton, la police est en gras,
elle redevient normale quand la souris quitte le bouton.
Dim flag as boolean
Private Sub btn1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
flag = True
btn1.Font.Bold = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If flag = True Then
flag = False
btn1.Font.Bold = False
End If
End Sub
A plus.