Function SansObjet(ValCel) As String
Application.Volatile
On Error Resume Next
If UCase(ValCel) = "OUI" Then
ActiveSheet.Shapes.AddTextEffect msoTextEffect9, "SANS OBJET", _
"Arial Black", 36#, msoFalse, msoFalse, 335.25, 261.75
SansObjet = "Sans objet"
Else
ActiveSheet.Shapes(1).Delete
SansObjet = "Avec objet"
End If
On Error GoTo 0
End Function