Classer par ordre alphabètique en vba

'classe par ordre alphabètique

Dim Plg As Range
    Set Plg = Range("I3:I6500")

    With Sort
        With .SortFields
            .Clear: .Add Plg.Cells(1, 1), xlSortOnValues, xlAscending, , xlSortNormal
        End With
        .SetRange Plg: .Header = xlNo: .MatchCase = False: .Orientation = xlTopToBottom
        .Apply
    End With

If Target.Column = 1 Then
    [A3:A6500].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I3], Unique:=True
    
  End If

Private Sub Worksheet_Change(ByVal R As Range)
  If R.Row > 2 And R.Column = 1 Then
    [I:I] = ""
    [A3:A6500].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I2], Unique:=True
    [I3:I6500].Sort [I3], 1
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plg As Range
'Sélectionne les produits
'Range("A3:A6500").Select ' Inutile !
'extrait les produits sans les doublons vers la colonne I
    Set Plg = Range("I3:I6500")
    Application.EnableEvents = False
    On Error Resume Next
    Plg.ClearContents
'    Range("A3:A6500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Plg, Unique:=True
    Range("A3:A6500").AdvancedFilter xlFilterCopy, , Plg, True
    On Error GoTo 0
' classer par ordre alphabètique
    With Sort
        With .SortFields
            .Clear: .Add Plg.Cells(1, 1), xlSortOnValues, xlAscending, , xlSortNormal
        End With
        .SetRange Plg: .Header = xlNo: .MatchCase = False: .Orientation = xlTopToBottom
        .Apply
    End With
    Application.EnableEvents = True
End Sub