[XL 2010] Insérer des images via une macro

Bonjour,

à mon travail j'utilise une macro (qui fonctionnait très bien sous Excel 2003). Je sélectionnais en gros toutes les photos dans mon répertoire, et elles étaient collées dans une feuille Excel.

Sub Insertion_images()
Workbooks.Add
Cells.Select
Selection.ColumnWidth = 48
Selection.RowHeight = 190
Range("A1").Select
tableauListe = Application.GetOpenFilename("Fichiers jpg (*.jpg), *.jpg", , , , True)
col = Int(Sqr(UBound(tableauListe, 1))) + 1
For i = LBound(tableauListe, 1) To UBound(tableauListe, 1)
ActiveSheet.Pictures.Insert(tableauListe(i)).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 184#
Selection.ShapeRange.Line.Weight = 1#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.Style = msoLineSingle
ActiveCell.Offset(0, 1).Select
If ActiveCell.Column = col + 1 Then ActiveCell.Offset(1, -col).Select
Next
End Sub


MON PROBLEME : maintenant lorsque j'utilise cette macro, je n'ai plus la photo collée, mais juste son chemin !!! Si ensuite, je modifie mon accès répertoire (par ex D:\Photos je change en D:\Photo) et bien je n'ai plus aucune image dans mon excel, juste un cadre "impossible d'afficher l'image".

Le souci est que lorsque je vais dans format puis texte de remplacement (clik droit sur photo), j'ai toutle chemin d'accès à la photo dans 'Description'.

MA QUESTION : Comment faire pour vraiment insérer la photo dans Excel, et pas seulement créer un raccourci vers le dossier où est stocké la photo ? Pour rappel cette macro fonctionnais bien sous Excel 03.

Merci de votre aide !!

Cordialement,

Gaetan