Private Sub UserForm_Initialize()
Dim fichier$
MultiPage1.Value = 0 'par exemple la 1ère page
fichier = ThisWorkbook.Path & "\MonImage.jpg" 'chemin à adapter
With Range("B1:E" & Range("B65000").End(xlUp).Row)
.CopyPicture
'création du fichier JPEG
With ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Chart
.Paste
.Export fichier, "JPG"
.Parent.Delete
End With
'chargement de l'image et suppression du fichier
Image1.Picture = LoadPicture(fichier)
Kill fichier
End With
End Sub