Condition Non à ajouter

Bonjour,

J'aimerais ajouter une condition au code suivant:

Si le Target.Value = "Non", il faut vérifier s'il y a une ligne ajoutée (est-ce que le contenu de la cellule D et E est identique au contenu de la cellule D et E de la ligne ajoutée, si oui, effacer la ligne ajoutée, si c'est différent ne rien faire.

Comment faire pour modifier le code afin qu'il prenne cette condition ?

Private Sub Worksheet_Change(ByVal Target As Range)

  ' Si modification dans la plage M16:M1000
  If Not Intersect(Target, Range("M16:M1000")) Is Nothing Then
  '  Si le choix est oui
    If Target.Value = "Oui" Then
   '   Désactiver les évènements
      Application.EnableEvents = False
      ' On insère une ligne en dessous
      ActiveSheet.Rows(Target.Row + 1).EntireRow.Insert Shift:=xlDown
      ' Réactiver les évènements
      Application.EnableEvents = True
    End If
  End If
End Sub

Un gros merci à la personne qui m'aidera !!!

Bonjour Catherine, bonjour le forum,

il faut vérifier s'il y a une ligne ajoutée

Heu... Et comment on vérifie ça ?!...