Tu peux toujours me passer ton fichier en mp si nécessaire.
Certaines "images" peuvent être cachées aussi.
Mets d'abord cette macro, fais la tourner et fais Ctrl+G dans l'éditeur de macro.
Sub liste_obj()
Dim o As Object
For Each o In ActiveSheet.Pictures
Debug.Print o.Name
Next
End Sub