Sub BoutonOnAction()
Dim s As Object
On Error Resume Next 'facultatif, si la feuille n'existe pas
Set s = Sheets(ActiveSheet.DrawingObjects(Application.Caller).Text)
If Not s Is Nothing Then If s.Visible = xlSheetVisible Then _
s.Activate Else MsgBox "Vous n'avez pas accès à cette page, veuillez contacter l'administrateur."
End Sub