Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A9")) Is Nothing And Target.Count = 1 Then
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
On Error GoTo 0
If Target <> "" Then
Sheets("Img").Shapes(Target).Copy
ActiveSheet.Paste
Selection.Name = "monImage"
Selection.ShapeRange.Left = [A1].Left
Selection.ShapeRange.Top = [A1].Top
ActiveSheet.Shapes("monimage").Width = [A1].Width
Target.Select
End If
End If
End Sub