Dim L As Long, Crit As Date, Plg As Range
Crit = CDate(Feuil1.[C1].Value)
Set Plg = Feuil1.[B1:B7]
On Error Resume Next
L = WorksheetFunction.Match(Crit, Plg, 1)
If Err Then L = 1
On Error GoTo 0
If Plg.Rows(L).Value < Crit Then L = L + 1
Plg.Rows(L).Select