Bonjour,
Marche à suivre :
1) Supprimer tous les liens hypertexte
2) Renommer chaque image du nom de la feuille qu'elle doit appeler
3) Afecter toutes les images à une même macro, type :
Sub Afficher()
Dim nom$
nom = Application.Caller
With Worksheets(nom)
.Visible = xlSheetVisible
.Activate
End With
End Sub
Il faurdra compléter ce dispositif pour que un retour vers la feuille source remasque la feuille (mais comme elles sont vierge dans le modèle, à voir comment elles seront configurées....)
Cordialement.