Option Explicit
Function SearchPrice(A$, D As Date) As Currency
Dim dlg&, lig&
With Worksheets("Feuil2")
dlg = .Cells(Rows.Count, 1).End(3).Row
For lig = 2 To 13
With .Cells(lig, 1)
If .Value = A Then
If .Offset(, 1) = D Then
SearchPrice = .Offset(, 2): Exit Function
End If
End If
End With
Next lig
End With
End Function