Copier Coller Renommer

Bonjour mes amis,

je demande votre aider a faire copier coller et renommer et garder le lien hyper-text Est ce que c'est possible??

j'ai ce code Macro mais il ne me permet pas de garder le lien.

For a = 2 To b
sh.Cells(a, "D") = ws.Cells(a, "X")

Cells X contient les liens hyper text et quant j'utilise cette macro le lien ne marche pas,

et est ce que vous pouvez me donner la possibilté de ronommer ces liens aux "Visualisez"

Merci de m'aider