XL 2010 Label clignotant si renseigné.

Private Sub UserForm_Terminate()
  clignote = False
  End
End Sub

Dim clignote As Boolean
Private Sub CommandButton1_Click()
    Label18.Caption = Array("Bonjour", "")(Abs(Label18.Caption = "Bonjour"))
    clignote = True
    UserForm_Activate
End Sub



Private Sub UserForm_Activate()
    Dim a
    'Label Clignotant
    If Label18.Caption <> "" Then clignote = True Else clignote = False
    If Not clignote Then Label18.Visible = True: Exit Sub
    Do While clignote
        a = Timer
        DoEvents
        Do Until a + 0.7 <= Timer: DoEvents: Loop
        Label18.Visible = Not Label18.Visible
        If Not clignote Then Label18.Visible = True: Exit Do
    Loop
End Sub
Private Sub UserForm_Terminate()
    clignote = False
End Sub