Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$2" Then
On Error Resume Next
ActiveSheet.Tab.ColorIndex = ActiveSheet.[A2].Interior.ColorIndex
End If
Select Case Sh.Range("A1")
Case "Dessert": Sh.Tab.ColorIndex = 14
Case "Entrée": Sh.Tab.ColorIndex = 43
Case "Pâte": Sh.Tab.ColorIndex = 40
Case "Poisson": Sh.Tab.ColorIndex = 33
Case "Viande": Sh.Tab.ColorIndex = 18
Case "Sauce": Sh.Tab.ColorIndex = 45
End Select
End Sub