Private Sub UserForm_Initialize()
Me.Label1.Caption = ". . . Nous sommes le " & Application.Proper(Format(Now(), "dddd dd mmmm yyyy")) & _
" . . . . . . . . "
End Sub
Private Sub UserForm_Activate()
n = Len(Me.Label1.Caption) * 5
For i = 1 To n
Me.Label1.Caption = Right(Me.Label1.Caption, Len(Me.Label1.Caption) - 1) & Left(Me.Label1.Caption, 1)
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
Next i
Unload Me
End Sub