Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
rep = ActiveWorkbook.Path
nomimage = rep & "\" & Target & ".jpg"
[B7].Select
ActiveSheet.Pictures.Insert(nomimage).Select
Selection.Name = "monimage"
[G3].Select
On Error GoTo 0
End If
End Sub