Sub AAAA()
Dim NomImg As String
Dim i As Shape
NomImg = [A1]
AccesImg = "V:\Photos Produits\Photos 72ppp\22\" & NomImg & ".jpg"
On Error GoTo suite
For Each i In ActiveSheet.Shapes
If ActiveSheet.Shapes(i).Type = msoPicture Then i.Delete
Next i
ActiveSheet.Shapes.AddPicture AccesImg, True, True, [A4].Left, [A4].Top, 118, 83
suite:
End Sub