Sub test3()
Dim Pl As Range, T() As String, DLig As Long, LigNP As Long
DLig = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Set Pl = Sheets("Sheet1").Range("A2:B" & DLig)
ReDim T(1 To Pl.Rows.Count)
For i = LBound(T) To UBound(T)
T(i) = Pl(i, 1) & Pl(i, 2)
Next i
With Sheets("Sheet2")
For i = 2 To DLig
On Error Resume Next
LigNP = Application.Match(.Cells(i, 1) & .Cells(i, 2), T, 0) + 1
If LigNP > 0 Then .Cells(i, 3) = Sheets("Sheet1").Cells(LigNP, 3): Err.Clear: LigNP = 0
Next i
End With
End Sub