Bonjour,
Là j'ai peur d'arriver à ma limite de connaissances. J'aurai tendance à dire que mon code est "sale" du fait d'une cellule qui s'additionne sur elle même. Peut être tester que la cellule modifiée n'est pas O5, mais si ça ne fonctionne pas, je n'aurais pas d'autres idées désolé :
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("O5")) Is Nothing And Target.DisplayFormat.Interior.Color = 255 Then Range("O5") = Range("O5") + 1
End Sub
Cdlt,