Modifier Liens Hypertextes

Bonsoir,

Dans mon Classeur, j'ai 2 feuilles du nom de "Date" et "Versement"

Dans la feuille "Date, il y a 20 liens hypertextes qui renvoi à une cellule précise dans la feuille "Versement"

J'aimerai créer 20 nouvelles feuilles et d'en modifier les liens sans toucher à ma cellule et sans avoir à tout lier.

En clair, est il possible de changer plusieurs liens hypertextes en ne changeant que la feuille, sans toucher à la cellule

Adresse des liens : http://monserveur/classeur.xlsl - Versement!C5, j'aimerai avoir http://monserveur/classeur.xlsl - Versement02!C5

Merci de votre aide

Bonjour,

à tester,

Sub test()
NouvelleFeuille = "Versement02"
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    x = Range("A" & i).Hyperlinks(1).SubAddress
    x1 = Split(x, "!")
    Range("A" & i).Hyperlinks(1).SubAddress = "http://monserveur/classeur.xlsl - " & NouvelleFeuille & "!" & x1(1)
Next
End Sub