Choix d'une image avec données/Validation

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 8 Then
    '-- suppression
    For Each s In ActiveSheet.Shapes
      If s.Type = 13 Then
         If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
           s.Delete
         End If
      End If
    Next s
    '--
    Sheets("status").Shapes(Application.Substitute(Target, " ", "")).Copy
    Target.Offset(0, 1).Select
    ActiveSheet.Paste
    Selection.ShapeRange.Left = ActiveCell.Left + 7
    Selection.ShapeRange.Top = ActiveCell.Top + 5
    Target.Select
  End If
End Sub

DonneesValidationImage.xls