Date correspondante à un produit inférieure à une date donnée

Option Explicit

Private Sub dattes()
Dim flivraison As Worksheet, frecent As Worksheet, rlivraison As Range
Dim rrecent As Range, ddonn As Date, drec As Date, prec As String, prod As Range
Dim liv As Range
Set flivraison = ThisWorkbook.Sheets("BDD")
Set frecent = ThisWorkbook.Sheets("BORD")
Set rrecent = Intersect(frecent.UsedRange, frecent.[A:A])
Set rlivraison = Intersect(flivraison.UsedRange, flivraison.[A:A])
ddonn = frecent.[C1]
For Each prod In rrecent
    drec = 0
    For Each liv In rlivraison
        If liv = prod And liv.Offset(0, 1) > drec And liv.Offset(0, 1) <= ddonn Then
            drec = liv.Offset(0, 1)
        End If
    Next liv
    If drec > 0 Then
        prod.Offset(0, 1) = drec
    End If
Next prod
End Sub

     else
            prod.Offset(0, 1) = ""