ActiveSheet.Shapes.Range(Array("Wave 1")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Array(RGB(0, 102, 0), RGB(255, 192, 0), RGB(255, 0, 0))([C2] - 1)
End With
If Range("C2") = 1 Then
Range("G11").Font.Colorindex = 10 'vert'
ElseIf Range("C2") = 2 Then
Range("G11").Font.Colorindex = 45 'orange'
Else
Range("G11").Font.Colorindex = 3 'rouge'
End If