Sub ColoreBarres()
Dim i As Integer
Calculate
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
If Cells(7 + i, 3) < 0.69 Then
ActiveChart.SeriesCollection(1).Points(i).Interior.Color = RGB(255, 0, 0)
Else
ActiveChart.SeriesCollection(1).Points(i).Interior.Color = RGB(0, 255, 0)
End If
Next i
End Sub