Sub BoutonOnAction()
Dim s As String
s = ActiveSheet.DrawingObjects(Application.Caller).Caption & " "
Cible = s & Range("K5") & " (" & IIf(Left(Range("R5"), 3) = "Pri", "1", "2") & ")"
If ExistWorkSheet(Cible) Then Worksheets(Cible).Activate
End Sub
Function ExistWorkSheet(FEUILLE) As Boolean
'Principe : évalue la formule Feuille!A1 et vérifie si elle renvoie #REF
ExistWorkSheet = Evaluate("ISREF('" & FEUILLE & "'!A1)")
End Function