Calcul après changement de valeur

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("$B$21:$B$30")) Is Nothing) Then
    If Intersect(Target, Range("$B$21:$B$30")).Address = Target.Address Then
        Application.EnableEvents = False
        If IsNumeric(Target.Value) And Not (IsEmpty(Target.Value)) Then Target.Offset(0, -1).Value = Target.Value / [B2]
        Application.EnableEvents = True
    End If
End If
If Not (Intersect(Target, Range("$a$21:$a$30")) Is Nothing) Then
    If Intersect(Target, Range("$a$21:$a$30")).Address = Target.Address Then
        Application.EnableEvents = False
        If IsNumeric(Target.Value) And Not (IsEmpty(Target.Value)) Then Target.Offset(0, 1).Value = Target.Value * [B2]
        Application.EnableEvents = True
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Application.Intersect(Target, Range("A:A,E:E")) Is Nothing Then
  Application.EnableEvents = False
    Target.Offset(0, 1).FormulaR1C1 = "=RC[-1]*R2C2"
  Application.EnableEvents = True
  Exit Sub
End If
 
If Not Application.Intersect(Target, Range("B:B,F:F")) Is Nothing Then
  Application.EnableEvents = False
    Target.Offset(0, -1).FormulaR1C1 = "=RC[1]/R2C2"
  Application.EnableEvents = True
  Exit Sub
End If
 
End Sub