Copier le contenu d'une cellule précédente dans une cellule ajoutée

Bonjour,

J'aimerais savoir comment faire pour copier automatiquement le contenu de la cellule D et E de la ligne précédente dans la nouvelle ligne ajoutée (ligne 17 dans l'exemple).

Le code pour qui m'a permis d'ajouter une ligne est :

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,

Peut-être comme ça :

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
      Rows(Target.Row + 1).EntireRow.Insert Shift:=xlDown
      Cells(Target.Row + 1, "D").Value = Cells(Target.Row, "D").Value
      Cells(Target.Row + 1, "E").Value = Cells(Target.Row, "E").Value
      ' Réactiver les évènements
      Application.EnableEvents = True
    End If
  End If
End Sub