Erreur d'exécution '9' : L'indice n'appartient pas à la sélection

Bonjour,
J'ai actuellement dans mon fichier plusieurs feuilles, toutes masquées sauf la feuille "Accueil". Chacune de ces feuilles est accessible via des liens sur la page d'accueil.
Lors d'un clique sur le lien, la feuille concernée s'ouvre, puis lors du clique sur le lien de retour en page d'accueil, la feuille est masquée à nouveau.
Le code utilisé fonctionne pour toutes mes feuilles sauf une. Elle affiche le message d'erreur écrit dans le titre.

Le code en page d'accueil est :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
a = Target.SubAddress
a = Left(a, InStr(1, a, "!") - 1)
Sheets(a).Visible = True
Sheets(a).Activate
End Sub

Le code présent sur la page qui ne fonctionne pas (alors qu'il fonctionne avec toutes les autres feuilles) :

Sub PlanningSalle_SAVE()

LaDate1 = Format(Range("I8"), "dd" & "." & "mm" & "." & "yyyy")
LaDate2 = Format(Range("P8"), "dd" & "." & "mm" & "." & "yyyy")
NomFichier = ("Planning Salle du " & LaDate1 & " au " & LaDate2 & "_V")

Dim Fichier As String

chemin = "C:\GestionResto\Planning Salle\"
Fichier = Dir(chemin & NomFichier & "*" & ".pdf")
n = 0

Do While Fichier <> ""
n = n + 1
Fichier = Dir
Loop

If n > 0 Then
If MsgBox("Le fichier '" & NomFichier & n & "' existe, voulez-vous créer une nouvelle version?", vbYesNo, "Attention") = vbNo Then Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & NomFichier & n + 1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
a = Target.SubAddress
a = Left(a, InStr(1, a, "!") - 1)
Sheets(a).Visible = True
Me.Visible = False
Sheets(a).Activate
End Sub

Le débogage surligne la ligne :

Sheets(a).Visible = True


Je ne vois pas pourquoi... une idée chers contributeurs?

Merci d'avance.