Sub Fleches()
On Error Resume Next
For L = 1 To [S1000].End(3).Row
Region = Cells(L, 19).Value
ActiveSheet.Shapes(Region).Select
Select Case Cells(L, 18).Value
Case 0 To 5
Selection.ShapeRange.Line.Visible = False
Case 6 To 30
Selection.ShapeRange.Line.Visible = True
Selection.ShapeRange.Line.ForeColor.SchemeColor = 3
Case 31 To 60
Selection.ShapeRange.Line.Visible = True
Selection.ShapeRange.Line.ForeColor.SchemeColor = 53
Case Is > 60
Selection.ShapeRange.Line.Visible = True
Selection.ShapeRange.Line.ForeColor.SchemeColor = 2
End Select
Next
End Sub