Macro événementielle récalcitrante

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Target.Address = "$C$48:$D$48" Or Target.Address = "$C$57:$D$57") Then Exit Sub
Dim x As Byte, y As Byte, z As Byte

If Not Application.Intersect(Target, [C48]) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    x = x + 1
    [Q41].Value = x + [Q41].Value
    If [Q41].Value > 1 Then [Q41].Value = 0
    Cancel = True 'pour quitter la cellule (à la place bidouillage)
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
ElseIf Not Application.Intersect(Target, [C57]) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    y = y + 1
    [Q42].Value = y + [Q42].Value
    If [Q42].Value > 1 Then [Q42].Value = 0
    [CR3].Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
ElseIf Not Application.Intersect(Target, [O44]) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    z = z + 1
    [Q43].Value = z + [Q43].Value
    If [Q43].Value > 1 Then [Q43].Value = 0
    [CR3].Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If
End Sub

Application.EnableEvents = False

Application.EnableEvents = True