Insérer un emplacement pour image

Option Explicit
Dim chemin, var As Variant
Dim position
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
position = Target.Address
position = Replace(position, "$", "")
ImportImages
End Sub
Sub ImportImages()
  chemin = Application.GetOpenFilename
  ActiveSheet.Pictures.Insert(chemin).Select
 Selection.Name = var
  Selection.ShapeRange.LockAspectRatio = msoFalse
  With ActiveSheet.Shapes(var)
    .Top = Range(position).Top
    .Left = Range(position).Left
    .Height = 50 'a adapter la dimension de l'image
    .Width = 80 'a adapter la dimension de l'image
  End With
End Sub