Private Sub Workbook_SheetActivate(ByVal Sh As Object)
CouleurOnglet
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect([b1], Target) Is Nothing Then CouleurOnglet
End Sub
Sub CouleurOnglet()
If [b1] = "" Then
ActiveSheet.Tab.ColorIndex = xlColorIndexNone
ElseIf [b1] = 0 Then
ActiveSheet.Tab.Color = vbGreen
Else
ActiveSheet.Tab.Color = vbRed
End If
End Sub