Re lien entre excel et internet

Bonjour,

J'ai fait appel à vous hier pour le même sujet mais j'ai à nouveau un problème.

Code:

---

1 2 3

With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & Cells(1, 1).Value _ , Destination:=Range("D22"))

---

En fait j'aimerai coller mes données sur une seule feuille excel. Or vu que j'ai plusieurs lien, j'ai donc plusieurs données à copier.
Je voudrai les copier à la suite, c'est à dire au niveau de la destination (en rouge), j'aimerai qu'il recherche dans la colonne A la 1ère cellule qui est vide.
Est ce possible?

En vous remerciant

Le code suivant donne la dernière ligne renseignée de la colonne A de "feuil1"

Code:

---

DerLig = Worksheets("feuil1").Range("A" & Worksheets("feuil1").Columns(1).Rows.Count).End(xlUp).Row '+ 1 (*)

---

(*) Pour avoir le numéro de la première ligne vide de la feuille, tu valides + 1