Inserer une ligne et copier la ligne précedente dedans

Bonjour,

J'ai déjà sollicité votre aide pour copier-coller une ligne choisis par la sélection d'une cellule en bas du tableau.

Je voudrais maintenant pouvoir copier uniquement les 4 premières colonnes de cette ligne, insérer une ligne en dessous puis coller le contenu dans cette nouvelle ligne.

Var_1 = ActiveCell.Row

Range("A65000").End(xlUp).Offset(0).Select

Var_2 = ActiveCell.Row + 1

Var_3 = Var_1 & ":" & Var_1
Var_4 = Var_2 & ":" & Var_2

Rows(Var_3).Select
   Selection.Copy
Rows(Var_4).Select
ActiveSheet.Paste

Ce code me permettait de faire ce que je voulais au début

ActiveCell.Offset(0, 0).Select
   Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

ActiveCell.Offset(-1, 1).Select
   Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

ActiveCell.Offset(-1, 1).Select
   Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

ActiveCell.Offset(-1, 1).Select
   Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Pour copier uniquement les 4 premières colonnes j'ai commencé par là mais je doute que ce soit la bonne solution

ActiveCell.EntireRow.Insert

Enfin j'ai essayé avec ceci pour obtenir une nouvelle ligne en dessous mais je n'arrive pas vraiment à l'utiliser.

Si vous pouviez m'éclairer

Bonjour,

Merci de joindre un fichier.

Cdlt.