Image en menu liste déroulante

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Column = 10 And Target.Count = 1 Then
    '-- suppression
    For Each s In ActiveSheet.Shapes
      If s.Type = 9 Then
        If s.TopLeftCell.Address = Target.Address Then s.Delete
      End If
    Next s
    '--
    If Target <> "" Then
      On Error Resume Next
         Shapes(Target).Copy
      If Err = 0 Then
        ActiveSheet.Paste
        largeurImage = Shapes(Target).Width
        HauteurImage = Shapes(Target).Height
        Selection.ShapeRange.Left = ActiveCell.Left + ActiveCell.Width / 2 - largeurImage / 2
        Selection.ShapeRange.Top = ActiveCell.Top + 0
        Rows(Target.Row).RowHeight = HauteurImage
        Target.Select
      End If
    End If
   End If
End Sub