Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' C13 étant le résultat d'une formule d’une autre feuille
If Target.Address = "$C$13" Then
If Target.Text = "Pas débutée" Then
ActiveWorkbook.Sheets(Sh.Name).Tab.ColorIndex = 3
ElseIf Target.Text = "En cours" Then
ActiveWorkbook.Sheets(Sh.Name).Tab.ColorIndex = 4
ElseIf Target.Text = "Annulée" Then
ActiveWorkbook.Sheets(Sh.Name).Tab.ColorIndex = 5
ElseIf Target.Text = "Terminée" Then
ActiveWorkbook.Sheets(Sh.Name).Tab.ColorIndex = 6
End If
End If
End Sub