Private Sub Depart_Click()
ThisWorkbook.Activate
Sheets("graphiques").Select
Set LeGraph = ActiveSheet.ChartObjects("Graphique 3").Chart
'ActiveSheet.ChartObjects ("Graphique 2")
NomImage = ThisWorkbook.Path & Application.PathSeparator & "VilleDepart.gif"
[COLOR="Red"]LeGraph.Export Filename:=NomImage, FilterName:="GIF"[/COLOR]
ImageGraph.Image1.Picture = LoadPicture(NomImage)
ImageGraph.Show
End Sub