RESOLU MACRO VB toute bête

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then Target.Offset(0, 1) = Target.Offset(0, -1) * Target
If Target.Column = 5 Then Target.Offset(0, -1) = Target / Target.Offset(0, -2)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
x = Target.Row
y = Target.Column
If y > 2 And y < 6 Then
    If Not IsNumeric(Target) Or IsEmpty(Target) Or IsEmpty(Cells(x, 3)) Then
        Application.EnableEvents = False
        Range(Cells(x, 3), Cells(x, 5)).ClearContents
        Application.EnableEvents = True
        Exit Sub
    End If
End If
If y = 4 Then Cells(x, 5) = Cells(x, 3) * Target
If y = 5 Then Cells(x, 4) = Target / Cells(x, 3)
End Sub