Index et Match avec deux critères vba

=INDEX(Sheet1!C$2:C$8;EQUIV(Sheet2!A2&Sheet2!B2;Sheet1!A$2:A$8&Sheet1!B$2:B$8;0))

Dim cellule As Range, c As Range
Dim Sh1, Sh2 As String
Sh1 = "Sheet1"
Sh2 = "Sheet2"
i = Sheets(Sh2).Range("A" & Rows.Count).End(xlUp).Row
For A = 2 To i

For Each cellule In Sheets(Sh2).Range("A2:B" & i)

With Sheets(Sh1).Range("B2:D30000")
    Set c = .Find(cellule.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
    cellule.Offset(0, 1) = c.Offset(0, 1)
    End If
End With
Next
Next A

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