Problème macro complexe (pour moi :D)

Sub Ajout_Conseiller()
  Dim Nom As String
  Dim Prenom As String
  Dim Initiales As String
  Dim NomConseiller As String
  Dim Modele As Worksheet
  Application.EnableEvents = False
  With Sheets("PARAMETRES")
    'Récuperer les variables
    Nom = InputBox("Nom du conseiller?", "Nom")  'Variable nom entré par utilisateur
    Prenom = InputBox("Prénom du conseiller", "Prénom")  'Variable prénom entré par utilisateur
    NomConseiller = Nom & " " & Prenom   'Concaténation variable nom et prénom pour variable nomconseiller
    .Range("A200").End(xlUp).Offset(1, 0).Value = NomConseiller  'Entrée de la variable nomconseiller dans la 1ere ligne vide
    Initiales = .Range("A200").End(xlUp).Offset(0, 1).Value  'Variable initiales
    'Inserer une feuille
    Set Modele = Sheets("MODELE")
    Modele.Select
    Modele.Copy After:=Sheets(1)    'Copie de la feuille MODELE
    ActiveSheet.Name = NomConseiller    'Nomme la feuille avec le nom du conseiller
    .[A1].Sort key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
    For Compteur = .Range("A65536").End(xlUp).Row To 2 Step -1
      NomDeLaFeuille = .Range("A" & Compteur)
      Sheets(NomDeLaFeuille).Move Before:=Sheets(1)
    Next
  End With
  With Sheets(NomConseiller)
    .Range("A6:A500").Name = Initiales & "_" & "Type"
    .Range("B6:B500").Name = Initiales & "_" & "Centre"
    .Range("D6:D500").Name = Initiales & "_" & "Date"
    .Range("I6:I500").Name = Initiales & "_" & "Imprimer"
    .Range("J6:J500").Name = Initiales & "_" & "Mens"
    .Range("K6:K500").Name = Initiales & "_" & "Dom"
    .Range("L6:L500").Name = Initiales & "_" & "GesteCo"
    .Range("M6:M500").Name = Initiales & "_" & "Visa"
    .Range("A1").Value = Initiales
    .Range("H5").Value = Prenom & " " & Nom
  End With
  Dim DerniereLigneFeuille As Range
  Dim AvantDerniereLigneFeuille As Range
  Dim DerniereLigneDmt As Range
  Dim AvantDerniereLigneDmt As Range
  Dim DerniereLigneProd As Range
  Dim AvantDerniereLigneProd As Range
  With Sheets("PROD")
    Set DerniereLigneFeuille = .Range("E200").End(xlUp)
    Set AvantDerniereLigneFeuille = .Range("E" & Range("E200").End(xlUp).Row - 1)
    Set DerniereLigneDmt = .Range("A5").End(xlDown)
    Set DerniereLigneProd = .Range("A200").End(xlUp)
    .Rows(DerniereLigneDmt.Row).Insert shift:=xlUp
    .Rows(DerniereLigneProd.Row).Insert shift:=xlUp
    Set AvantDerniereLigneDmt = .Range("A" & Range("A5").End(xlDown).Row - 1)
    Set AvantDerniereLigneProd = .Range("A" & Range("A200").End(xlUp).Row - 1)
    DerniereLigneFeuille.EntireRow.Copy Destination:=AvantDerniereLigneProd
    AvantDerniereLigneFeuille.EntireRow.Copy Destination:=AvantDerniereLigneDmt
  End With
  Application.EnableEvents = True
End Sub

DerniereLigneFeuille[COLOR=red].Select[/COLOR]
Selection.EntireRow.Copy Destination:=AvantDerniereLigneProd

  With Sheets("PROD")
    Set DerniereLigneDmt = .Range("A5").End(xlDown)
    Set AvantDerniereLigneFeuille = .Range("E" & Range("E200").End(xlUp).Row - 1)
    AvantDerniereLigneFeuille.EntireRow.Copy
    DerniereLigneDmt.Insert Shift:=xlDown
    ' Un ligne a été insérée, récupérer le numéro de la dernière
    Set DerniereLigneFeuille = .Range("E200").End(xlUp)
    Set DerniereLigneProd = .Range("A200").End(xlUp)
    DerniereLigneFeuille.EntireRow.Copy
    DerniereLigneProd.Insert Shift:=xlDown
  End With

  With Sheets("PROD")
  Dim DerniereLigneFeuille As Range
  Dim AvantDerniereLigneFeuille As Range
  Dim DerniereLigneDmt As Range
  Dim AvantDerniereLigneDmt As Range
  Dim DerniereLigneProd As Range
  Dim AvantDerniereLigneProd As Range
    Set DerniereLigneDmt = .Range("A5").End(xlDown)
    Set AvantDerniereLigneFeuille = .Range("H200").End(xlUp)
    AvantDerniereLigneFeuille.EntireRow.Copy
    DerniereLigneDmt.Insert Shift:=xlDown
    ' Un ligne a été insérée, récupérer le numéro de la dernière
   Set DerniereLigneFeuille = .Range("E200").End(xlUp)
    Set DerniereLigneProd = .Range("A200").End(xlUp)
    DerniereLigneFeuille.EntireRow.Copy
    DerniereLigneProd.Insert Shift:=xlDown