Liste de validation - flèches qui disparaissent

With Selection.Validation
     .InCellDropdown = True
End With

Sub InsereIm(NomImage As String)
Dim Sh As Shape
    Application.ScreenUpdating = False
    If ActiveCell.Address <> Range("Choix").Address Then
        'Suppression de l'image existante
        On Error Resume Next
        For Each Sh In ActiveSheet.Shapes
            If Sh.TopLeftCell.Address = ActiveCell.Address Then Sh.Cut
        Next Sh
        On Error GoTo 0
        'Insertion image
        Sheets("Images").Shapes(NomImage).Copy
        ActiveSheet.Paste
        If Selection.ShapeRange.Height > ActiveCell.Height Then
            Selection.ShapeRange.Top = ActiveCell.Top
        Else
            Selection.ShapeRange.Top = ActiveCell.Top + (ActiveCell.Height - Selection.ShapeRange.Height) / 2
        End If
        If Selection.ShapeRange.Width > ActiveCell.Width Then
            Selection.ShapeRange.Left = ActiveCell.Left
        Else
            Selection.ShapeRange.Left = ActiveCell.Left + (ActiveCell.Width - Selection.ShapeRange.Width) / 2
        End If
        ActiveCell.Select
        Application.CutCopyMode = False
    End If
    On Error Resume Next
        For Each Sh In ActiveSheet.Shapes
            If Sh.TopLeftCell.Address = ActiveCell.Address Then Sh.Copy
        Next Sh
        On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

        For Each Sh In ActiveSheet.Shapes
            If Sh.TopLeftCell.Address = ActiveCell.Address Then Sh.Delete
        Next Sh

        For Each Sh In ActiveSheet.Shapes
            If Sh.FormControlType <> xlDropDown Then
                If Sh.TopLeftCell.Address = ActiveCell.Address Then Sh.Delete
            End If
        Next Sh

For Each Sh In ActiveSheet.Shapes
    If Sh.AutoShapeType <> msoShapeMixed Then
       If Sh.TopLeftCell.Address = ActiveCell.Address Then Sh.Delete
     End If
Next Sh

        On Error Goto finSuppr
        For Each Sh In ActiveSheet.Shapes
            If Sh.TopLeftCell.Address = ActiveCell.Address Then Sh.Cut
finSuppr :
        Next Sh
        On Error GoTo 0