Bonjour james59 et bienvenue à ce forum,

Tu peux tester le petit bout de code suivant dans le code de ThisWorkbook :

Option Explicit

Private Sub Workbook_SheetChange(ByVal Feuille As Object, ByVal Target As Range)

    If Feuille Is Feuil1 Then
    
      Target.Interior.Color = IIf(Target.Value = 1, vbYellow, vbWhite)
      
    End If
    
End Sub

Lorsque la valeur d'une cellule quelconque de la feuille Feuil1 est modifiée, la couleur de fond passe au jaune si cette valeur est 1 et au blanc pour toutes les autres valeurs.

À noter que Option Explicit doit être au tout début du module.

Cordialement,

Guy