Sub Evt_Dpt_All()
For Each Row In Sheets("Départements").Range("Table_Départements").Rows
If Int(Row.Cells(1, 4).Value) = 1 Then
Sheets("Plan transport").Shapes(Row.Cells(1, 1)).Fill.ForeColor.RGB = _
Sheets("Plan transport").Shapes("CouleurHigh").Fill.ForeColor.RGB
Else
If Int(Row.Cells(1, 4).Value) = 2 Then
Sheets("Plan transport").Shapes(Row.Cells(1, 1)).Fill.ForeColor.RGB = _
Sheets("Plan transport").Shapes("CouleurMiddle").Fill.ForeColor.RGB
Else
If Int(Row.Cells(1, 4).Value) = 3 Then
Sheets("Plan transport").Shapes(Row.Cells(1, 1)).Fill.ForeColor.RGB = _
Sheets("Plan transport").Shapes("CouleurLow").Fill.ForeColor.RGB
End If
End If
End If
Next Row
End Sub