Bon je crois que j'ai été un peu vite pour te répondre. Je ne sais pas si tu as lu ma réponse, mais mon code n'est pas suffisament préçis et ne correspond pas à ta demande.
Je te joins ci-dessous le bon code pour une sélection d'images uniquement.
Tiens moi au courant !
Sub selectimages()
For Each pic In ActiveSheet.Shapes
If pic.Type = msoPicture Or pic.Type = msoEmbeddedOLEObject Then pic.Select All
Next pic
End Sub