Menu deroul et evénement

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1) = "Nouveau" Then
  Application.Undo
  Target(2, 1).EntireRow.Insert
  Target(1).EntireRow.Copy Target(2, 1).EntireRow
  Target(2, 1) = "": Target(2, 1).Select
End If
End Sub

Dim MemoValue$    'Variable mémorisant l'ancienne valeur du DropDown (portée niveau Module)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
Dim Rligne As Range
'---
'--- Seule est prise en compte la 1ère cellule de Target ---
Set R = Target.Cells(1, 1)
'--- Teste si on est en présence d'une Liste de Validation ---
If HasListValidation(R) Then
  
  If Target = "Nouveau" Then
    Application.EnableEvents = False
    Set Rligne = Rows("" & R.Row & ":" & R.Row & "")
    Rligne.Copy
    Rligne.Insert Shift:=xlDown
    R = ""
    R.Offset(-1, 0) = MemoValue$
    R.Select
    Application.CutCopyMode = False
    Application.EnableEvents = True
  End If
  
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Range
'---
Set R = Target.Cells(1, 1)
If HasListValidation(R) Then
  MemoValue$ = R
Else
  MemoValue$ = ""
End If
End Sub

'//////////////////////////////////////////////////////////////////////////
'/// Fonction qui teste si on est en présence d'une Liste de Validation ///
'//////////////////////////////////////////////////////////////////////////
Private Function HasListValidation(R As Range) As Boolean
Dim V As Validation
Dim rep&
'---
Set V = ActiveCell.Validation
On Error Resume Next
rep& = V.Type
If Err <> 0 Then Exit Function
If rep& = xlValidateList Then HasListValidation = True
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 10 Or Target(1) <> "Nouveau" Then Exit Sub
Application.Undo
Target(2, 1).EntireRow.Insert
Target(1).EntireRow.Copy Target(2, 1).EntireRow
Target(2, 1) = "": Target(2, 1).Select
End Sub

If Target.Column = 10 And Target.Count = 1 Then
If Target(1) = "Nouveau" Then
  Application.Undo
  Target(2, 1).EntireRow.Insert
  Target(1).EntireRow.Copy Target(2, 1).EntireRow
  Target(2, 1) = "": Target(2, 1).Select
End If
If Target(1) = "Supprimer" Then
  Application.Undo
  Target(1, 1).EntireRow.Delete
End If

End If

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 10 Then Exit Sub
If Target(1) = "Nouveau" Then
  Application.Undo
  Target(2, 1).EntireRow.Insert
  Target(1).EntireRow.Copy Target(2, 1).EntireRow
  Target(2, 1) = "": Target(2, 1).Select
ElseIf Target(1) = "Supprimer" Then
  Target(1).EntireRow.Delete
End If
End Sub