Liens hypertextes

[Marie_MG]

Bonjour, 

J'ai un fichier Excel avec une colonne qui contient un lien hypertexte différent par cellule. Mais le lien est remplacé par un numéro d'id unique: F1270-001, 002...

Je souhaiterai remplacer ce texte par le l'adresse du lien. 
J'arrive à le faire case par case mais je ne trouve pas de solution pour le faire en masse sur 400 lignes. 

Quelqu'un a une solution? 

Merci 

[#2]

@Marie_MG 

Hi,

Sub ChangeHyperlinks()

Dim MyRange As Range
Dim h As Hyperlink

Set MyRange = Worksheets("Sheet1").Range("A1:A100")

For Each h In MyRange.Hyperlinks
    h.TextToDisplay = h.Address
Next h

End Sub

Change sheet name and range as required.

Regards

[#3]

@Jos_Woolley, thank you so much,

Have a good day

[#4]

@Marie_MG 

You're welcome! A good day to you, too.