XL 2016 son quand un doublon apparait

Private Sub TextBox1_Change()
With [A1].CurrentRegion.Columns(1)
    Select Case Application.CountIf(.Cells, TextBox1)
        Case 0: .Interior.ColorIndex = xlNone
        Case Else
            Beep 'son
            Application.ScreenUpdating = False
            .Cells(1).Insert xlDown
            With Range(.Cells(0), .Cells)
                .AutoFilter 1, TextBox1 'filtre automatique
                .SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 44 'orange
                .Cells(1).Delete xlUp
                .Parent.AutoFilterMode = False 'retire le filtre
            End With
    End Select
End With
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ""
End Sub