Merci beaucoup! Après quelques magouilles, plus besoin de lien hyperlink et la macro fonctionne bien. Il suffit de penser à remasquer la feuille à chaque fois qu'on la quitte. Je met le code si ça peut aider des gens!
ActiveSheet.Shapes.AddShape(msoShapeOvalCallout, 91.1538582677, 64.0384251969, 60.5769291339, 36.9231496063).Select
Selection.OnAction = "'envoyerSurBonnePage " & Chr(34) & trigramme & Chr(34) & "'"
Sub envoyerSurBonnePage(trigramme As String)
Sheets(trigramme).Visible = True
Sheets(trigramme).Select
End Sub