récuperer les liens url

j'ai un bloc de selection de liens hypertext récupéré depuis une page html comme ceci
Pièce jointe 300562
et j'aiemrais récuperer les liens URL avec ce code mais ca ne semble pas bien marcher
c'est quoi le probleme .merci pour votre aide

Code:

---

1 2 3 4 5

dern_colS = Selection.Columns.Count Set plage = Range(Selection.Address) For Each c In plage c.Offset(0, dern_colS) = c.Hyperlinks(1).Address Next c

---

Bonjour,
Si une cellule est vide ou ne contient pas d'URL, il y a erreur, il faut donc tester si une URL existe

Code:

---

1 2 3 4 5 6

dern_colS = Selection.Columns.Count Set plage = Range(Selection.Address) For Each c In plage if c.Hyperlinks.count > 0 then c.Offset(0, dern_colS) = c.Hyperlinks(1).Address Next c

---

merci helas