Message d'erreur 1004 vba

Bonjour,

Qu'est-ce-qui cloche dans cette macro ?
J'ai une feuil1 avec macro de transfert de données, cette feuille est protégée.

A l'ouverture, j'ai un message d'erreur 1004
- Capture d'écran du message : https://www.cjoint.com/c/IEsrNohb35b

La ligne "Application.Goto .Range(cellules)" apparait surlignée en jaune
- Capture d'écran de la macro : https://www.cjoint.com/c/IEsrRT2hQbb

Est-il possible de corriger cette erreur ?
Cette macro est dans la feuil0 qui contient les raccourcis de toutes les autres feuilles qui sont masquées (50) et avec des liens hypertexte pour ouvrir la feuille désirée.
A la réouverture du fichier, seule la feuil0 est visible. Tout le reste est masqué.

Merci pour votre assistance
Cordialement
Fat


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
Dim cellules As String
Dim Feuille As String
Dim lienSplit() As String

lienSplit = Split(Target.SubAddress, "!")
If UBound(lienSplit) >= 1 Then
Feuille = Replace(lienSplit(0), "'", "")
cellules = lienSplit(1)
With Sheets(Feuille)
If .Visible = False Then
.Visible = True
Application.Goto .Range(cellules)
End If
End With
Else
MsgBox ("Lien non valide... " & Target.SubAddress)
End If
End Sub