[A26]=array([BB15].value,0)(abs([A26].value=[bb15].value))
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0,32,96), TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0))(Abs(ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0,32,96)))
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(Font.Color.RGB = RGB(0, 32, 96), Font.Color.RGB = RGB(255, 0, 0))(Abs(ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color.RGB = RGB(0, 32, 96)))
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(Font.Color.RGB = RGB(0, 32, 96), Font.Color.RGB = RGB(255, 0, 0))(Abs(Font.Color.RGB = RGB(0, 32, 96)))
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(RGB(0, 32, 96), RGB(255, 0, 0))(Abs(RGB(0, 32, 96)))
[N35] = Array("oui", "non")(Abs([N35].Value = "oui"))
If ActiveSheet.[N35].Value = "oui" Then
ActiveSheet.Shapes("Rectangle : coins arrondis 21").Fill.ForeColor.RGB = RGB(1, 122, 255)
ActiveSheet.Shapes("Rectangle : coins arrondis 21").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
Else
ActiveSheet.Shapes("Rectangle : coins arrondis 21").Fill.ForeColor.RGB = RGB(149, 179, 215)
ActiveSheet.Shapes("Rectangle : coins arrondis 21").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 32, 96)
End If