Coller une image de cellules dans un commentaire

Bonjour
Je cherche à tranformer une plage de cellules d un classeur fermé sous forme d image pour la coller dans un commentaire d une cellule d un autre classeur.
La Seule Solution Que j ai trouvé est pour le moment d ouvrir le fichier, sauvegarder l image.

Auriez vous des conseils ou recommendations ?
Voici le code actuel fait des différents codes trouvés sur des forums

Bon dimanche à tous
Thierry

Sub Img_dans_Commentaire()

Call export

With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False 'Un seul Fichier possible

.InitialFileName = "c:\temp\" 'CurDir 'Répertoire d'ouverture de la fenetre

.Filters.Clear 'Annuler les filtres au cas où

.Filters.Add Description:="test", Extensions:="*.gif", Position:=1

theFile = "c:\temp\test.gif"

End With

Range("A10").AddComment

Range("A10").Comment.Visible = False

[A10].Comment.Shape.Fill.UserPicture theFile

End Sub



Sub export()

Dim s As Range

classeur = "BIR-CFM-002.xlsx"


Set s = Workbooks.Open(Filename:="c:\Temp\" & classeur).Sheets("Sheet1").Range("A42:f47")

s.CopyPicture

Application.ScreenUpdating = False

Workbooks.Add

ActiveSheet.Paste

With ActiveSheet.ChartObjects.Add(0, 0, s.Width, s.Height).Chart

.Paste

.export "c:\temp\test" & classeur & ".gif", "GIF"

End With

ActiveWorkbook.Close False

Workbooks(classeur).Close False

End Sub