Sub Insertion()
Dim Img As String, Chemin As String, MonImage As Object
Sheets("FSC").Unprotect
ActiveSheet.Pictures.Delete
Range("G14").Select
On Error GoTo MessErreur
Img = Range("A7").Value
Chemin = ActiveWorkbook.Path & "\IMG\" & Img & ".jpg"
If Img <> "" Then
Set MonImage = ActiveSheet.Pictures.Insert(Chemin)
MonImage.Name = Img
End If
Exit Sub
MessErreur:
MsgBox ("L'image " & Img & " n'existe pas")
Sheets("FSC").Protect
End Sub