Dim appui As Boolean
Sub anime()
Dim T As Long
Do
Label1 = Mid(Label1, 2) & Left(Label1, 1)
Label2.Visible = False
X = 0
For T = 1 To 9000: DoEvents: Next
DoEvents
Label2.Visible = True
Label1 = Mid(Label1, 2) & Left(Label1, 1)
X = 0
For T = 1 To 9000: DoEvents: Next
Loop Until appui
End Sub
Private Sub CommandButton1_Click()
appui = True
End Sub
Private Sub CommandButton2_Click()
appui = True
End Sub
Private Sub UserForm_Activate()
anime
End Sub