Sub conversion_Feuille_Image()
Dim Ligne As Integer, Colonne As Integer
Application.ScreenUpdating = False
Feuil1.UsedRange.CopyPicture
Feuil1.Paste
Ligne = Feuil1.Cells.Find('*', Feuil1.Range('A1'), SearchDirection:=xlPrevious).Row + 1
Colonne = Feuil1.Cells.Find('*', Feuil1.Range('A1'), SearchDirection:=xlPrevious).Column + 1
With Feuil1.ChartObjects.Add(0, 0, Cells(Ligne, Colonne).Left, Cells(Ligne, Colonne).Top).Chart
.Paste
.Export ThisWorkbook.Path & '\\monImage.jpg', 'JPG'
End With
With Feuil1
.ChartObjects(Feuil1.ChartObjects.Count).Delete
.Shapes(Feuil1.Shapes.Count).Delete
End With
Application.ScreenUpdating = True
End Sub