Insérer des lignes copiées

Bonjour à tous,

Je suis débutant dans VBA et j'ai un petit souci. Je souhaite copier la ligne 1, qui est une ligne vide (bordures uniquement) puis l'insérer en dessous ou en dessus de la cellule active.

J'ai déjà essaye de regarder sur internet mais rien à faire, j'ai toujours une erreur qui s'affiche (Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet) et je ne comprend pas pourquoi ..

Voici mon code :

Sub insertRow()

Rows("1:1").Copy

ActiveCell.Insert Shift:=xlDown

End Sub

J'ai réussi tous seul, voici le code si ça peut aider quelqu'un :

Sub insertRow()

Rows(1).Copy

ActiveCell.Rows.EntireRow.Insert Shift:=xlShiftDown

End Sub

excellent Callitek!!

n'oublie pas de marquer le sujet comme résolu