Afficher image en fonction de la valeur d'une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("b2")) Is Nothing Then
    repertoire = ThisWorkbook.Path & "\"
    On Error Resume Next
    ActiveSheet.Shapes("monimage").Delete
    p = Application.Match([B2], [NOMS], 0)
    If Not IsError(p) Then
      image = Range("images")(p)
      Range("B7").Select
      monimage = ActiveSheet.Pictures.Insert(repertoire & image).Select
      Selection.Name = "monimage"
    End If
    [B2].Select
  End If
End Sub