Option Explicit
Sub Essai()
Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row: If dlg < 862 Then Exit Sub
Dim lig&: Application.ScreenUpdating = 0
Range("A861:G" & dlg).Sort [B861], 1, [C861], , 1, [D861], 1
For lig = dlg To 862 Step -1
If Cells(lig, 3) = Cells(lig - 1, 3) Then Rows(lig).Delete
Next lig
End Sub