Private Sub Worksheet_Change(ByVal Target As Range)
If not Intersect(Target, Range("C6:C511")) Is Nothing Then
ThisWorkbook.Worksheets("ConstatsBRC").Visible = xlSheetHidden
ThisWorkbook.Worksheets("ConstatsIFS").Visible = xlSheetHidden
end if
If Not Intersect([D6
501], Target) Is Nothing Then
On Error Resume Next
Target.Font.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Font.ColorIndex
End If
On error goto 0
End Sub