Private Sub Workbook_Open()
Dim shp As Shape
Dim dep
dep = Time
Set shp = ActiveSheet.Shapes.AddTextEffect(msoTextEffect19, _
"Meilleurs voeux" & Chr(13) & "" & Chr(10) & " & Bonne Année", "Gigi", 110#, msoFalse, msoFalse, _
36.75, 120.75)
Do
DoEvents
Loop While Time < dep + TimeSerial(0, 0, [SIZE=3][COLOR=red]3[/COLOR][/SIZE])
shp.Delete
End Sub