Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim i As Byte
With Sheets("Animaux")
If Sh.Name = .Name Then Exit Sub
Cancel = True
Sh.DrawingObjects.Delete 'RAZ
If IsEmpty(Target(1)) Or Target(1) < 0 Or Target(1) > 1 Then Exit Sub
i = Application.Match(10 * Target(1), Array(0, 3, 5, 6, 7, 8, 9))
.Shapes("Image " & 2 * i).Copy
End With
Sh.Paste 'coller
Selection.Top = ActiveCell(2).Top + 3
Selection.Left = ActiveCell.Left
ActiveCell.Activate
End Sub