insertion image par macro

[gfmout]

Bonjour au forum,

J'ai une macro qui marche pour inserer des photos automatiquement dans la feuille excel.
Apres double click on est dirige sur la boite de dialogue d'insertion de photo.

Or le nom du fichier photo est dans la feuille excel en colone 1.
Y a til un moyen pour que le nom du fichier s'inscrive automatiquement dans la boite de dialogue... comme c'est un codebarre la saisie est penible.

ci dessous la macro originale que je voudrais modifier...

Si ca inspire quelqu'un...merci d'avance

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Application.Dialogs(xlDialogInsertPicture).Show

With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width - 3
.Height = Target.Height - 3
.Placement = 1
.PrintObject = True
End With

End Sub