Sub Macro1()
Txt = Range("B4").Value
Arreter_macro = False
Do
ActiveSheet.TextBox5.Value = Txt
W = 0.2
Temp = Timer
Do While Timer < Temp + W
If Arreter_macro = True Then Exit Do
DoEvents
Loop
Txt1 = Right(Txt, Len(Txt) - 1)
Txt2 = Left(Txt, 1)
Txt = Txt1 & Txt2
Loop Until Arreter_macro = True
ActiveSheet.TextBox5.Value = ""
End Sub