Extraire les url de liens (word ou excel)

Bonjour,

J'ai un document word constitué d'une liste de liens. Sous word ou excel (2007) seule l'info bulle apparaît. Exemple:

ONISEP
ONISEP TV

Or je voudrais copier en une fois l'ensemble des URL de ces liens pour constituer une liste d'URL. Exemple:

https://www.onisep.fr/
https://oniseptv.onisep.fr/

Je pensais qu'un "collage spécial" pourrait répondre à ma demande mais apparemment le problème est plus compliqué.

J'ai trouvé sur un forum une réponse consitant à créer une macro sous excel. Si j'ai bien compris, dans la première colonne on collle les liens et la macro extrait les URL dans la deuxième colonne. Malheureusement je n'y connait rien en macro. J'ai enregistré une macro et collé le code dans la partie "description" mais ça ne fonctionne pas. Peut être faut il compléter la macro avec des données pour extrires les URL de la colonne A et les faire apparaître dans la colonne B.

Pourriez-vous me guider pour résoudre ce problème.

Voici la macro que j'ai trouvé:

Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub