Autres (RESOLU) copier coller ordre croissant et sans doublant

Private Sub Worksheet_Activate()
Dim der&
   Application.ScreenUpdating = False
   If Feuil1.FilterMode Then Feuil1.ShowAllData
   der = Feuil1.Cells(Rows.Count, "c").End(xlUp).Row
   Feuil1.Range("c4:c" & der).Resize(der).Copy Range("c1")
   der = Cells(Rows.Count, "c").End(xlUp).Row
   Columns("c").Resize(der).Sort Range("c1"), xlAscending, Header:=xlYes
   Columns("c").Resize(der).RemoveDuplicates Columns:=1, Header:=xlYes
   Columns("c").Borders.LineStyle = xlLineStyleNone
   der = Cells(Rows.Count, "c").End(xlUp).Row
   Columns("c").Resize(der).Borders.LineStyle = xlContinuous
End Sub