Sub ExtractionImagesClasseur()
Dim Pict As Picture, Nb As Byte, F As Worksheet
Application.ScreenUpdating = False
For Each F In ThisWorkbook.Worksheets
For Each Pict In F.Pictures
Pict.CopyPicture 'copie l'image
With F.ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart
.Paste 'colle l'image dans un graphique temporaire
'Sauvegarde au format image, dans le même répertoire que ce classeur. voir choix gif/jpg/bmp !?
'.Export ThisWorkbook.Path & "\" & Pict.Name & ".gif", "GIF"
'.Export ThisWorkbook.Path & "\" & Pict.Name & ".jpg", "JPG"
.Export ThisWorkbook.Path & "\" & Pict.Name & ".bmp", "BMP"
End With
'Supprime le graphique
Nb = F.ChartObjects.Count: F.ChartObjects(Nb).Delete
Next Pict: Next F
Application.ScreenUpdating = True
End Sub