Sub POP_UP()
Dim P As Range, fichier$
Set P = Sheets("Liste").[A1].CurrentRegion 'la feuille Liste est masquée
fichier = ThisWorkbook.Path & "\MonImage.gif"
'---création du fichier image gif---
P.CopyPicture
With P.Parent.ChartObjects.Add(0, 0, P.Width, P.Height).Chart
.Parent.Activate 'force le focus sur l'objet
.Paste
.Export fichier, "GIF"
.Parent.Delete 'supprime le graphique temporaire
End With
'---dimensionnement et remplissage de l'UserForm---
With UserForm1
.Width = P.Width
.Height = P.Height + 20
.PictureSizeMode = fmPictureSizeModeStretch
.Picture = LoadPicture(fichier)
Kill fichier 'suppression du fichier image
.Show
End With
End Sub