separation URL et du texte

[nico]

bonsoir à tous,
je cherche à separer des URL du texte dans une cellule pour avoir au finale dans la cellule de gauche le texte et à droite l'url qui correspond.
exemple

excel-downloads (avec derriere le texte http://www.excel-downloads.com) le tout dans une cellule.
ce que je cherche à obtenir :
excel-downloads et dans la cellule d'a coté http://www.excel-downloads.com
merci
nico

 

[Roland]

salut Nico
deux liignes de vba
la cellule selectionnée contient le lien hypertexte

ActiveCell.Offset(0, 1) = Selection.Hyperlinks(1).Address
ActiveCell.Offset(0, 2) = Selection.Hyperlinks(1).TextToDisplay

bye