With myShape
With .DrawingObject
.Text = IIf(.Text = "Masquer montants", "Afficher montants", "Masquer montants")
.Fill.ForeColor.RGB = IIf(.Text = "Masquer montants", RGB(0, 32, 96), RGB(255, 32, 96))
.OLEFormat.Object.Border.Color = IIf(.Text = "", RGB(255, 160, 70), RGB(255, 0, 0))
End With
With .TextEffect
.FontSize = IIf(.Text, 12, 14)
.FontName = IIf(.Text, "Roboto", "Arial")
End With
End With