Bonjour
J'ai lancer l'enregistreur de macro, et modifier une peu la macro, et j'ai eu ca :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/02/2005 par
'
'
ActiveSheet.Shapes.AddTextEffect(msoTextEffect8, Range("a1"), "Times New Roman", _
36#, msoFalse, msoFalse, 342#, 182.25).Select
End Sub
Salut
Hervé