Bonjour
Code fonction personnalisée dans un Module
Function CouleurdesOnglets(ByVal Coul%)
If Coul < 0 Then Coul = 2
Application.Caller.Worksheet.Tab.ColorIndex = Coul
End Function
Ensuite, sur chaque feuille (n'importe où sur la feuille) doit figurer cette formule que j'ai mis en A1 de chacune des feuilles de ton fichier.
=CouleurdesOnglets(SI(J10=VRAI;4;3))
Cordialement