salut Raja
essayer ca
Sub test()
Dim x As Integer, nb As Integer, v As Integer
nb = Cells(Rows.Count, "A").End(xlUp).Row
'-----------------------#######-----------------------
Range("a" & 1 & ":c" & nb).Interior.ColorIndex = 2
v = 1
Do Until nb = v
v = v + 1
For x = nb To v + 1 Step -1
If Cells(x, 1).Value = Cells(v, 1).Value And Cells(x, 3).Value = Cells(v, 3).Value Then '
Sheets("Feuil1").Rows(x).Delete
ElseIf Cells(x, 1).Value = Cells(v, 1).Value Then
Range("a" & v & ":c" & v).Interior.ColorIndex = 4
Range("a" & x & ":c" & x).Interior.ColorIndex = 4
End If
Next
nb = Cells(Rows.Count, "A").End(xlUp).Row
Loop
'-------------------########################-----------------------
End Sub