Sub ImportImages()
RepPhotos = "c:\img\"
Call suppression
Range("B2").Select
For Each c In [A2:A6]
nf =RepPhotos & 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