Private Sub Workbook_Open()
Dim T$, Ti
Feuil1.Select
T = "Attention aux datas ! "
Do
Feuil1.Shapes("Oups").TextFrame.Characters.Text = Left(T, 10)
T = Right(T, Len(T) - 1) & Left(T, 1)
Ti = Timer
Do While Timer < Ti + 0.4: DoEvents: Loop
Loop While Selection.Address = "$A$1"
Feuil1.Shapes("Oups").TextFrame.Characters.Text = "Attention aux datas !"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[A1].Select
End Sub