[VBA] insérer une ligne dans un fichier excel

Bonjour,
Je cherche à insérer une ligne vierge dans un fichier excel en VBA depuis ACCESS.
En cherchant sur internet j'ai trouvé un bout de code mais il ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim xl As Excel.Application Set xl = New Excel.Application With xl .Visible = True .Workbooks.Add End With xl.Sheets("Feuil1").Select .... xl.Cells(2, 1).Select Selection.EntireRow.Insert

---

Il n'y a pas de nouvelle ligne qui apparait au niveau de la ligne 2. Le programme ne semble rien faire (ou en tout cas rien de visible à l'écran). Je précise que j'ai essayé de faire tourner ce code pour insérer à la ligne 2 mais en réalité je ne connait pas à l'avance le numéro de la ligne.
Ce sera plutôt quelque chose comme :

Code:

---

1 2 3

xl.Cells(i, 1).Select Selection.EntireRow.Insert

---

Est ce que j'utilise la bonne commande pour faire ça ?

Merci.

Je suis pas sur d'avoir bien saisi ta réponse.

Citation:

---

la ligne insérée se place en dessus de la cellule active, tu te retrouve à la même adresse.

---

Donc ma ligne insérée devient la ligne 2 c'est ça ?
Mais dans ce cas pourquoi je n'ai pas de ligne vierge qui apparait dans ma feuille excel ?

A+

Salut !
Moi je ferais comme ca a ta place :

Code:

---

1 2 3 4

For i = 1 To introwstoadd objWS.Rows(42).Insert Shift:=xlDown Next i

---

avec le "shift machin là" ca ira mieux (je crois)

+++
Ju

Impeccable ça marche !
Encore merci,
Bonne soirée.
Seb.