Sub InsereImage(plage As Range, cel As Range)
plage.CopyPicture
With plage.Parent.ChartObjects.Add(0, 0, plage.Width, plage.Height).Chart
.Paste
.Export ThisWorkbook.Path & "\MonImage.jpg", "JPEG"
.Parent.Delete 'supprime le graphique temporaire
End With
cel.ClearComments
With cel.AddComment("").Shape
.Width = plage.Width
.Height = plage.Height
.Fill.UserPicture ThisWorkbook.Path & "\MonImage.jpg"
End With
Kill ThisWorkbook.Path & "\MonImage.jpg" 'supprime le fichier JPEG
End Sub