Sub Bulk()
Dim DernL As Long, L As Long
Application.ScreenUpdating = False
Feuil2.Range("A2:AS" & Feuil2.[A65536].End(xlUp).Row).Copy _
Destination:=Feuil1.[A65536].End(xlUp).Offset(1)
DernL = Feuil1.[A65536].End(xlUp).Row
Feuil1.Range("A2:AU" & DernL).Sort Key1:=Range("B2"), Order1:=xlAscending, _
Key2:=Range("C2"), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
For L = DernL To 3 Step -1
If Feuil1.Cells(L - 1, 2).Value = Feuil1.Cells(L, 2).Value And _
Feuil1.Cells(L - 1, 3).Value = Feuil1.Cells(L, 3).Value Then
Feuil1.[D:AS].Rows(L - 1).Value = Feuil1.[D:AS].Rows(L).Value
Feuil1.Rows(L).Delete
End If
Next L
DernL = Feuil1.[A65536].End(xlUp).Row
Feuil1.Range("A2:AU" & DernL).Sort Key1:=Range("G2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
End Sub