Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("C6:F27"), Target) Is Nothing Then
lig = Target.Row
ToColor = WorksheetFunction.Sum(Cells(lig, 2).Offset(0, 1).Resize(,4)) <> 0
onglet = VBA.Trim(Split(Cells(lig, 2), Chr(10))(0))
On Error Resume Next
Worksheets(onglet).Tab.Color = IIf(ToColor, vbRed, xlNone)
End If
End Sub