Transformer un tableau Excel en gif en 1 clic via une macro VBA

Excel ne permet pas de réaliser une capture d'écran d'un tableau de façon rapide et fiable. Aussi ai-je programmé la petite macro ci-dessous dont l'objet est d'extraire un fichier image au format gif. En affectant un raccourci clavier à cette macro vous pourrez ainsi en un clic exporter sur le bureau un fichier .gif du tableau dont vous aurez, au préalable, sélectionné une cellule au hasard. (Je précise que je ne suis pas programmeur VB Script et que donc ce programme doit certainement comporter des redondances et autres fautes de goût, si vous souhaitez apporter votre contribution n'hésitez pas par voie de commentaire:-)
Attention: il faut remplacer la chaine de caractéres 'XXX' par votre nom d'utilisateur Windows.

'Début de la macro

Sub gif()
'
' gif Macro
' Macro enregistrée  par netgui, http://www.justblogit.net
'
Dim nom As String
Dim plage

' recupére le nom du fichier excel pour l'utiliser comme nom de l'export gif
' on supprime les 4 derniers caractères qui correspondent à .xls

nom = ActiveWorkbook.Name
nom = Left(nom, Len(nom) - 4)

'sélectionne la plage de cellules concomittantes à la cellule sélectionnée

Set plage = ActiveCell.CurrentRegion
Application.ScreenUpdating = False
Workbooks.Add: plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height + 5).Chart
.Paste
.Export "C:\Documents and Settings\XXX\Bureau\" & Format(nom) & ".gif", "GIF"
End With

ActiveWorkbook.Close False

End Sub

'Fin de la macro