Problème de macro pour insertion d'image

Bonjour le forum

En pièce jointe j'ai un fichier dans lequel j'essaie d'associer une macro pour insérer une image à la place de l'image déjà présente lorsque je double clique dessus

J'ai un souci

De plus comment faire pour associer ce code à une image que j'importe par le biais d'une autre macro

Si quelqu'un pouvait y jeter un oeil ,

D'avance je vous remercie pour votre aide et votre disponibilité

Bonsoir le forum

sur le net j'ai trouvé ce code

Sub ImportImage()
  Image = Application.GetOpenFilename("Fichiers Gif ou Jpg ,*.gif;*.jpg")
  If Image <> False Then
    a = Split(Image, "\")
    nomimage = a(UBound(a))
    Set c = ActiveCell
    With ActiveSheet
      .Pictures.Insert(Image).Name = nomimage
      .Shapes(nomimage).Height = c.Height
      .Shapes(nomimage).Left = c.Left + (c.Width - .Shapes(nomimage).Width) / 2
      .Shapes(nomimage).Top = c.Top
      .Shapes(nomimage).LockAspectRatio = msoTrue
    End With
  End If
End Sub

du coup il serait pas trop mal pour ce que je voudrais faire, mais comment l'adapter pour qu'il insère une image dans la plage suivante ("D9:M19")