Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Target.Row = 6 And Target.Column = 3 Then
tmp = Cells(Target.Row, Target.Column) * 100
Select Case tmp
Case Is < 20
Shapes.Range(Array("Secteur_1")).Fill.ForeColor.RGB = RGB(255, 255, 0)
Case Else
Shapes.Range(Array("Secteur_1")).Fill.ForeColor.RGB = RGB(255, 0, 0)
End Select
End If
End Sub