Sub Export_Image_de_Plage()
Dim ndf As String
Dim Source As Range, Gr As Object
ndf = ActiveWorkbook.Path & "\Confirmation de " & [A1] & ".gif"
Set Source = Sheets("Feuil1").Range("A1:D30") 'Ici tu modifies la plage que tu veux enregistrer et envoyer.
Source.CopyPicture xlScreen, xlPicture
Set Gr = Sheets("Feuil1").ChartObjects.Add(0, 0, Source.Width, _
Source.Height)
Gr.Chart.Paste
Gr.Chart.Export ndf, "GIF"
Gr.Delete
Set Gr = Nothing
Set Source = Nothing
End Sub