Sub Macro1()
If Range("e11") > "100" Then
Range("P14").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartStyle = 5
ActiveChart.ClearToMatchStyle
Range("J5").Select
End If
If Range("e11") < "100" Then
Range("P14").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartStyle = 4
ActiveChart.ClearToMatchStyle
Range("J5").Select
End If
End Sub