Private Sub UserForm_Initialize()
répertoire = ThisWorkbook.Path
sheets("feuil1").activate
Set f = Sheets("feuil1")
Set champExport = f.Range("A1").CurrentRegion
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(répertoire & "\" & "imageExport.gif")
End Sub