Option Explicit
Sub recherche()
Dim i&, j&, Dl1&, Dl2&, t1, t2
Dim Wk1 As Workbook, Wk2 As Workbook
Set Wk1 = ThisWorkbook
Set Wk2 = Workbooks("Base.xls")
Dl1 = Wk1.Sheets(1).[A65536].End(xlUp).Row
Dl2 = Wk2.Sheets(1).[D65536].End(xlUp).Row
t1 = Wk1.Sheets(1).Range("A10:O" & Dl1)
t2 = Wk2.Sheets(1).Range("A2:O" & Dl2)
For i = 10 To UBound(t1)
For j = 2 To UBound(t2)
If t1(i, 4) & t1(i, 6) & t1(i, 8) & t1(i, 12) = t2(j, 4) & t2(j, 6) & t2(j, 8) & t2(j, 12) Then
t1(i, 9) = t2(j, 9): t1(i, 15) = t2(j, 15)
End If
Next
Next
[A10].Resize(UBound(t1), UBound(t1)) = t1
End Sub