Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" And Target.Address(False, False) = "B15" And Target(1, 1) > 0 Then
Application.EnableEvents = False
Sheets(Array("Feuil1", "Feuil2")(-(Sh.Name = "Feuil1"))).Range("B15") = 0
Application.EnableEvents = True
End If
End Sub