Sub test()
Dim i As Long, j As Long, Client As String, NumSerie as String
Application.ScreenUpdating = False
For i = 2 To Range("A65536").End(xlUp).Row
If Range("A" & i).Value = "RTC" Then
Client = Range("B" & i).Value
NumSerie = Range("D" & i).Value
For j = Range("A65536").End(xlUp).Row To 2 Step -1
If Range("A" & j).Value = "EXP" And Range("B" & j).Value = Client And Range("D" & j).value = NumSerie Then
Range("A" & j).EntireRow.Delete
End If
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub