Lien html sur UF

Bonsoir,
Les formulaires
Private Sub MonLien_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:=Me.MonLien.Caption, NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End Sub
Changement de la couleur au survol:
Private Sub Monlien_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 2 Or X > Monlien.Width - 2 Or Y < 5 Or Y > Monlien.Height - 5 Then
Me.Monlien.ForeColor = RGB(0, 0, 0)
Else
Me.Monlien.ForeColor = RGB(255, 0, 0)
End If
End Sub

Cliquez pour agrandir...