Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then
ActiveWorkbook.Sheets(Cells(Target.Row, 1).Value).Tab.Color = Worksheets("Parametres").Cells(Application.Match(Cells(Target.Row, 13).Value, Worksheets("Parametres").Range("E20:E24"), 0) + 19, 4).Interior.Color
End If
End Sub