Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:b2")) Is Nothing Then
ChDir ActiveWorkbook.Path
If [A2] = 1 And [B2] <> 0 Then nomImage = "x.jpg"
If [A2] = 2 And [B2] <> 0 Then nomImage = "y.jpg"
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
Range("C2").Select
monimage = ActiveSheet.Pictures.Insert(nomImage).Select
Selection.Name = "monimage"
Target.Select
End If
End Sub