Option Explicit
Sub essai()
Dim nom$, répertoire
répertoire = ThisWorkbook.Path & "\Images\" ' dossier images
With ActiveSheet
nom = .Range("a2") 'extension à adapter
.Pictures.Insert(répertoire & nom & ".jpg").Name = nom
.Shapes(nom).Left = .Range("b2").Left
.Shapes(nom).Top = .Range("b2").Top
End With
End Sub