Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim s As Object
Sheets("Accueil").Visible = xlSheetVisible 'sécurité
For Each s In Sheets
If s.Name <> "Accueil" Then s.Visible = xlVeryHidden 'xlSheetHidden
Next
On Error Resume Next
With Sheets(Format(Target.Parent, "00"))
.Visible = xlSheetVisible
.Activate
End With
End Sub