Probème avec des macro événementielle

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$D$6" Then [C12] = [D6]: [E12] = ""
If Target.Address = "$C$12" Then [E12] = [D6] - [C12]
If Target.Address = "$E$12" Then [C12] = [D6] - [E12]
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$D$6" Then
[C12].Value = [D6].Value
ElseIf Target.Address = "$E$12" Then
[C12].Value = [D6].Value - [E12].Value
ElseIf Target.Address = "$C$12" Then
[E12].Value = [D6].Value - [C12].Value
End If
Application.EnableEvents = True
End Sub