Supprimer en masse le texte à afficher d'un lien hypertexte

Bonjour à tous,

Je vous présente mon problème.

J'ai une colonne qui contient un lien hypertexte différent dans chaque cellule.

Mais tous ces liens ont été renommé par le mot "photo".

Je souhaite afficher seulement le lien hypertexte.

Donc manuellement il est facile de faire un clic droit sur le lien > modifier le lien hypertexte > et enlever "photo" du champ "texte à afficher".

Or je devrais le faire environ 400 fois... Et souhaiterais trouver un moyen rapide et automatique.

Vous trouverez ci-joint un échantillon de 4 liens.

Pour info j'ai essayé d'enregistrer un macro avec l'étape manuelle présentée ci-dessus, mais en vain...

Si vous avez autre chose à me proposer, c'est avec grand plaisir !!

A faire avec 2 fonctions, dont l'un personnalisée (macro).

Merci beaucoup pour votre aide.

Mais je n'arrive pas a reproduire la 1ère étape "=Hyperlien(A1)", le résultat affiche "#NOM?".

Savez-vous pourquoi ?

Il faut enregistrer une macro : Faire Alt+F11, créer un module, enregitrer la fonction, et sauvegarder le fichier en xlsm.

A la lecture il faut autorise les macros.

Function Hyperlien(cell As Range)
Hyperlien = cell.Hyperlinks(1).Address
End Function

C'est parfait ! J'ai compris ! Merci beaucoup !!!

Je vais gagner un temps fou !