Faire des liens vers des onglets masqués + forcer classeur à s'ouvrir sur un onglet

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Sheets("Page Principale").Visible = True
    ActiveSheet.Visible = False
End Sub


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    On Error Resume Next
    Set Ws = Sheets(Target.Name)
    If Not Ws Is Nothing Then
        Ws.Visible = True
        Sh.Visible = False
    End If
    On Error GoTo 0
End Sub


Private Sub Workbook_Open()
    With Sheets("Page Principale")
        .Visible = True
        .Select
    End With
End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    On Error Resume Next
    Set Ws = Sheets(Target.Name)
    Sheets("Page Principale").Cells(ActiveCell.Row, 1) = Date
    If Not Ws Is Nothing Then
        Ws.Visible = True
        Sh.Visible = False
    End If
    On Error GoTo 0
End Sub

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Sheets("Page Principale").Visible = True
    ActiveSheet.Visible = False
End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveSheet.Name <> "Page Principale" Then
        With Sheets("Page Principale")
            .Activate
            .Cells(ActiveCell.Row, 1) = Now
        End With
    End If
End Sub


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim Ws As Worksheet
    On Error Resume Next
    Set Ws = Sheets(Target.Name)
    If Not Ws Is Nothing Then
        Ws.Visible = True
        Sh.Visible = False
    End If
    On Error GoTo 0
End Sub


Private Sub Workbook_Open()
    With Sheets("Page Principale")
        .Visible = True
        .Select
    End With
End Sub

Private Sub Workbook_Open()
  For i = 1 To Sheets.Count
    Sheets(i).Visible = Sheets(i).Name = "Page Principale"
  Next
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
  Set WS = Sheets(Target.Name)
  Application.ScreenUpdating = False
  WS.Visible = Not WS Is Nothing
  Sh.Visible = WS Is Nothing
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Nom = "Page Principale"
  Application.EnableEvents = False
  If Sh.Name <> Nom Then Sheets(Nom).Cells(ActiveCell.Row, 1) = Date
  Application.EnableEvents = True
End Sub