Bonjour,
Un bout de code qui me permet de vider les images a adapter
Private Sub SuppAllImage_Click()
Dim PicShape As Object
'Supprimer toutes les images d'une feuille
For Each PicShape In ActiveSheet.Shapes
If PicShape.Type = msoPicture Then PicShape.Delete
Next PicShape
End Sub
A+