Salut Petchy et Michel,
Michel a été plus rapide, néanmoins voici une suggestion basée sur la propriété Visible de ton Label :
(Tout ce code concerne le UserForm avec un bouton bascule et un Label)
Public Clignotant As Boolean
Sub Clignoter()
Dim T1 As Single
Do
DoEvents
If Clignotant = False Then
Label1.Visible = True
Exit Do
End If
Label1.Visible = Not Label1.Visible
T1 = Timer
Do
Loop While Timer >= T1 And Timer < T1 + 0.1
Loop
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Clignotant = True
Clignoter
Else
Clignotant = False
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Clignotant = True Then
Clignotant = False
End If
A+
Horatio