Affiche rien en code VBA

Bonjour à tous,

J'utilise cette formule en code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N:N")) Is Nothing Then
If Target.Count = 1 Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Val(Target.Offset(0, -5).Value) + Val(Target.Value) - 1
Application.EnableEvents = True
End If
End Sub

Je souhaiterai rajouter le code : quand ma cellule est vide en colonne N, que l'autre ce vide également

Merci pour votre aide

Bonjour,

Teste ceci

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("N:N")) Is Nothing Then
    If Target.Count = 1 Then
      Application.EnableEvents = False
      Target.Offset(0, 1).Value = Val(Target.Offset(0, -5).Value) + Val(Target.Value) - 1
      Application.EnableEvents = True
      If Target.Value = "" Then Target.Offset(0, 1).Value = ""
    End If
  End If
End Sub

Super merci beaucoup