Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Or Target.Count = 1 Then
Dim s As Shape
Application.EnableEvents = True
On Error GoTo fin
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
s.Delete
End If
Next s
If Len(Target.Value) < 2 Then Exit Sub
Sheets("Photo_Chien").Shapes(Target).Copy
Application.EnableEvents = False
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 7
Selection.ShapeRange.Width = 400
Target.Select
Application.EnableEvents = True
Exit Sub
End If
fin:
MsgBox ("l'élément cherché est absent et/ou mal orthographié")
End Sub