Private Sub UserForm_Initialize()
Dim fichier$, Z#
MultiPage1.Value = 0 'par exemple la 1ère page
fichier = ThisWorkbook.Path & "\MonImage.jpg"
With Range("B1:H" & Range("B65000").End(xlUp).Row)
.CopyPicture Format:=xlBitmap
'création du fichier JPEG
Z = ActiveWindow.Zoom / 100 'coefficient de zoom
With ActiveSheet.ChartObjects.Add(0, 0, (.Width + 5) / Z, (.Height + 5) / Z).Chart
.Paste
.Export fichier, "JPG"
.Parent.Delete
End With
'chargement de l'image et suppression du fichier
Frame1.Picture = LoadPicture(fichier)
Kill fichier
Frame1.ScrollHeight = .Height + 5
Frame1.ScrollWidth = .Width + 5
End With
End Sub