XL 2016 macro : trie alphabétique sans redondance

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, Range("a3:a65000")) Is Nothing Then
        Application.EnableEvents = False
        Range("a:a").RemoveDuplicates Columns:=1, Header:=xlYes
        Application.EnableEvents = True
        Range("a3:a65000").Sort Key1:=Range("a3"), Order1:=xlAscending
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("A3:A2503")) Is Nothing Then
        Range("A3:A2503").RemoveDuplicates Columns:=1
        Range("A3:A2503").Sort Key1:=Range("A3"), Order1:=xlAscending
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, Range("a3:a65000")) Is Nothing Then
        Application.EnableEvents = False
        Range("a:a").RemoveDuplicates Columns:=1, Header:=xlYes
        Application.EnableEvents = True
        Range("a3:a65000").Sort Key1:=Range("a3"), Order1:=xlAscending
        With Range("a3:a65000").SpecialCells(xlCellTypeConstants)
            .Borders.Value = 0
            .Borders(xlEdgeLeft).Color = -65281
            .Borders(xlEdgeRight).Color = -65281
        End With
    End If
End Sub