Sub test()
Dim DerLig As Long, Rg As Range, Plg As Range
With Feuil2
DerLig = .Range("B65536").End(xlUp).Row
Set Rg = .Range("A2:M" & DerLig)
End With
With Rg
.Sort Key1:=.Item(1, 3), order1:=xlDescending, Header:=xlYes
End With
With Rg.Columns(2)
.AdvancedFilter xlFilterInPlace, Unique:=True
Set Plg = .Offset(1).Resize(.Rows.Count, 2)
End With
With Plg.SpecialCells(xlCellTypeVisible)
.Copy Worksheets("2").Range("A3")
End With
With Rg
.Sort Key1:=.Item(1, 1), order1:=xlAscending, Header:=xl
End With
On Error Resume Next
Feuil2.ShowAllData
End Sub