Private Sub Test()
Dim sCopy As Variant
Set sCopy = ThisWorkbook.Sheets(14)
For i = 2 To sCopy.Cells(1, 17).Value
filenam = ThisWorkbook.Path & "\" & sCopy.Cells(i, 3) & ".jpg"
On Error Resume Next
sCopy.Pictures.Insert (filenam)
If Err.Number = 1004 Then
Next i
Else
'Reste du code ici
End If
Next i
End Sub