With Feuil2
.Pictures.Left = .Range("A1").Left + 3
.Pictures.Top = .Range("A1").Top + 3
.Pictures.Height = .Range("A1").Height - 5
.Pictures.Width = .Range("A1").Width - 5
End With
'Et dans la feuille "Destination"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each sh In ActiveSheet.Shapes
If sh.Type <> 12 Then sh.Delete
Next sh
End Sub