VBA- Insertion d'image mauvais type

Bonjour a tous,

Je bloque sur un point pour une macro qui insert une image d'un produit d'apres son code, dans la cellule a la droite du code.

l'insertion fonctionne parfaitement mais elle insert cette image en tant qu'image liée et non en dur dans le fichier.

le probleme est que lorsque le document est partagé par mail, les images ne suivent pas.

Je pense que cela vient du fait que lors de l'insertion le fichier est ajouté sous le type 11 mso linked picture et non 13 mso picture,

mais je n'arrive pas a modifier le code pour insérer l'image en type 13

mille mercis pour vos conseils !

Sub ImportImages()
 répertoirePhoto = "Z:\DEVELOPPER\01 - PLANIFICATION CO\ANTOINE\Photo pour XLS" & "\"
 'suppression
 Range("b2").Select
 For Each c In [A2:A6]
    nf = répertoirePhoto & c & ".jpg"
    If Dir(nf) <> "" Then
      Set img = ActiveSheet.Pictures.Insert(nf)
      img.Left = c.Offset(, 1).Left
      img.Top = c.Offset(, 1).Top
      c.EntireRow.RowHeight = img.Height

     End If
 Next
 End Sub

hello again guys,

Je fais les questions et les réponses... mais je partage la solution que je viens de réussir a bricoler :

Sub ImportImages2()
Dim img As Object
Dim ShapeObj As Shape

 répertoirePhoto = "Z:\DEVELOPPER\01 - PLANIFICATION CO\ANTOINE\Photo pour XLS" & "\"
 'suppression
 Range("b2").Select
 For Each c In [A2:A6]
    nf = répertoirePhoto & c & ".jpg"
    If Dir(nf) <> "" Then
      Set img = Application.ActiveSheet.Shapes.AddPicture(nf, False, True, c.Offset(, 1).Left, c.Offset(, 1).Top, 100, 100)

      img.Left = c.Offset(, 1).Left
      img.Top = c.Offset(, 1).Top
      c.EntireRow.RowHeight = img.Height

     End If
 Next
 End Sub