Voila jai trouver le code
Private Sub UserForm_Activate()
Dim n As Variant
Dim i As Integer
n = Len(Me.Label7.Caption)
For i = 1 To 5 * n
rr = Right(Me.Label7.Caption, Len(Me.Label7.Caption) - 1)
rrr = Left(Me.Label7.Caption, 1)
Me.Label7.Caption = Right(Me.Label7.Caption, Len(Me.Label7.Caption) - 1) & Left(Me.Label7.Caption, 1)
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
Next i
End Sub