exporter une plage de cellules en image, sans bordure

Bonjour à tous

J'utilises le code suivant pour exporter des plages de cellules sous
format png (ou gif, ça dépend)
Existe t'il un attribut pour que l'image créée n'ait pas de bordure noire,
ce qui est le cas jusqu'à présent.

Sheets("feuil1").Select
Set Plage = ActiveSheet.Range("A2:H31")
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\adresse de destination de l'image\nom.png", "PNG"
End With

Merci d'avance