Private Sub UserForm_Initialize()
répertoire = ThisWorkbook.Path
Set f = ActiveSheet
f.Range("A1").CurrentRegion.Select
Set champExport = Selection
champExport.CopyPicture
f.ChartObjects.Add(0, 0, champExport.Width, champExport.Height).Chart.Paste
f.ChartObjects(1).Chart.Export répertoire & "\" & "imageExport.gif", "gif"
f.ChartObjects(1).Delete
Me.Image1.Picture = LoadPicture("imageexport.gif")
End Sub