Ci-dessous une procédure basée sur un morceau de code trouvé sur le Net et dont je ne me rappelle plus l'auteur :
Sub ExportRangeGif()
Dim R As Range
Application.ScreenUpdating = False
Set R = ActiveSheet.Range("A1:F15")
R.CopyPicture
ActiveSheet.Paste
Selection.Name = "Temp"
With ActiveSheet.ChartObjects
With .Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Image.gif", "gif"
End With
.Delete
End With
ActiveSheet.Shapes("Temp").Delete
Application.ScreenUpdating = True
End Sub