Voici un exemple de macro, qui se déclenche lorsque la sélection change dans la feuille Feuil1.
Si la valeur de la cellule A1 est 1, l’onglet devient rouge, sinon incolore.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Feuil1").Range("A1").Value = 1 Then
Sheets("Feuil1").Select
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 3
Else
Sheets("Feuil1").Select
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = -4142
End If
End Sub