Récupérer un lien hypertexte VBA

Bonjour,

j'utilise ça pour ouvrir un lien hypertexte que j'ai inseré sur la cellule A7 de la feuille 1 il le fait bien mais mon soucis une fois que je modifie ce liens il m'affiche une erreur : erreur d'execution '9' l'indice n'appartient pas a la sélection

Private Sub LIEN_Click()

Dim link As String

link = "I:\_PERSO\DOC_PLANS\Classeur1.xlsm"

ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True

Sheets("Feuil1").Select

Range("A7").show

Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True

Unload Me

End Sub