Autres Simplifier un code

[chaelie2015]

Bonsoir forum
je souhaite simplifier ce code
si AP12 = 1 alors afficher l'image nommée"A1_attention" sinon si AP12=0 alors Masquer l'image nommée"A1_attention"

If [AP12] = 1 Then ActiveSheet.Shapes("A1_attention").Visible = True
If [AP12] = 0 Then ActiveSheet.Shapes("A1_attention").Visible = False

Merci par avance

 

[jmfmarques]

Bonjour

ActiveSheet.Shapes("A1_attention").Visible = cbool(range("AP12").value)

 

[chaelie2015]

Bonsoir jmfmarques
Merci c'est parfait.
a+