Copier Coller deux dernières lignes dont liste déroulante

Bonjour tous,

J'essaye de copier coller les deux dernières lignes de mon tableau tout en gardant la mise en page et la liste déroulante (A4) mais je n'y arrive pas.
Ce que je veux copier coller au final se sont les lignes 3 et 4 pour qu'a chaque nouveau prestataire cela recrée la même chose.
Je sais que cela a été abordé plusieurs fois mais je n'arrive pas à créer une macro simple qui fait ca et à l'adapter à mon classeur.

J’espère que vous pourrez m'aider et comme ça je pourrai le réutiliser et l'adapter sur mes autres classeurs.

J'ai essayer avec enregistrer macro et ca :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ajout_liste_presta() Range("A" & Rows.Count).End(xlUp).Offset(1).Select 'faire une nouvelle ligne ActiveCell.EntireRow.Insert Shift:=xlDown 'copier la ligne du dessus ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1) On Error Resume Next 'effacer le contenu de la nouvelle ligne mais garder la forme ActiveCell.EntireRow.ClearContents End Sub

---

Et clairement ca ne va pas car ca ne prend qu'une ligne et en plus ca me la colle toujours à des endroits différents. J'ai essayé d'adapter mais étant débutant je bloc :calim2:

En attendant j'ai trouvé ca qui fonctionne sur ma nouvelle mise en page mais je n'arrive pas à effacer les données des lignes collés. Je veux garder la mise en page et liste déroulante mais pas la valeur.

Code:

---

1 2 3 4 5 6 7 8

Sub ajout_presta() x = ActiveCell.Row Range("A25:G26").Copy Range("A" & x & ":G" & x).Insert Shift:=xlDown Application.CutCopyMode = False Rows(x).RowHeight = 3 Rows(x + 1).RowHeight = 25 End Sub

---

Auriez vous une idée??