Private Sub Workbook_Open()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect3, "Salut la dispo", _
"Monotype Corsiva", 36#, msoFalse, msoFalse, 280, 90.5).Select
Selection.ShapeRange.ScaleWidth 2.58, msoFalse, msoScaleFromTopLeft
Application.CommandBars("WordArt").Visible = False
ActiveSheet.Shapes.AddTextEffect(msoTextEffect19, _
"Mes meilleures voeux" & Chr(13) & "" & Chr(10) & "pour la nouvelle année", "Gigi", 110#, msoFalse, msoFalse, _
36.75, 120.75).Select
End Sub