Sub Bienvenue()
t = "BIENVENUE À L'OUTIL DE TRAVAIL` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `"
n = 0
Do While n < 80
t = Right(t, 1) & Left(t, Len(t) - 1)
[COLOR=Red][B]Sheets("Acceuil").[/B][/COLOR][C2] = t
w = 0.55
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub