(RESOLU)affichage d'image selon la valeur d'une cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("a2:a11").ClearContents
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, lig As Long, nom As String, _
répertoirePhoto, img

Application.EnableEvents = False
 lig = ActiveSheet.Range("a65536").End(xlUp).Row + 1
 ActiveSheet.DrawingObjects.Delete
 
lig = Range("a65536").End(xlUp).Row + 1
For i = 2 To lig
   nom = Range("a" & i)
If nom <> "" Then
  répertoirePhoto = ThisWorkbook.Path & "\" & nom & ".gif"
  Set img = ActiveSheet.Pictures.Insert(répertoirePhoto)
  img.Left = Range("b" & i).Width / 2
  img.Top = Range("b" & i).Top + 2
  img.Name = nom
  End If
  Next
  i = i + 1

Application.EnableEvents = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 Sheets("Feuil1").Shapes("Picture 1").Visible = [a1] = 1
Sheets("Feuil1").Shapes("Picture 2").Visible = [a1] = 2
End Sub