Sub chargerImages()
Set grST = Worksheets(2).ChartObjects("graphTCDTransition").Chart
imST = ThisWorkbook.Path & Application.PathSeparator & "\imST.gif"
Set grSAV = Worksheets(2).ChartObjects("graphTCDApresVente").Chart
imSAV = ThisWorkbook.Path & Application.PathSeparator & "imSAV.gif"
Set grSC = Worksheets(2).ChartObjects("graphTCDClient").Chart
imSC = ThisWorkbook.Path & Application.PathSeparator & "imSC.gif"
Set grCLI = Worksheets(2).ChartObjects("graphTCDCLI").Chart
imCLI = ThisWorkbook.Path & Application.PathSeparator & "imCLI.gif"
grST.Export Filename:=imST, FilterName:="GIF"
grSAV.Export Filename:=imSAV, FilterName:="GIF"
grSC.Export Filename:=imSC, FilterName:="GIF"
grCLI.Export Filename:=imCLI, FilterName:="GIF"
affichageGraphiques.Image1.Picture = LoadPicture(imST)
affichageGraphiques.Image2.Picture = LoadPicture(imSAV)
affichageGraphiques.Image3.Picture = LoadPicture(imSC)
affichageGraphiques.Image4.Picture = LoadPicture(imCLI)
affichageGraphiques.Show
End Sub