find exact or immediate inferior date

Hi everybody!

Second post here, i think i need some help..

I have a sheet that many users use to create TASK for vehicles. Those task should be created in order of "Starting date of the task".

I've been able to find and create the task template under a task with the SAME date, i can't find a way to select the closest inferior date…

Here's the code i use to find the SAME date:

 Dim findDate As Date
 Dim findStr As String
 Dim R As Range, WS As Worksheet

 Set findDate = TxtDateDebut 'This is from a TextBox in a UserForm
 Set WS = Worksheets("TĀCHES")

 findStr = Format(TxtDateDebut, "DD/MM/YYYY")

 MsgBox TxtDateDebut

 With WS

 Set R = .Cells.Find(what:=findStr, LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious)

 If Not R Is Nothing Then

 ActiveSheet.Range(R.Address).Select
 ActiveCell.Offset(1, 0).Resize(AddTemplate.TxtNombre.Value + 3).EntireRow.Insert


 End With

Tāches.png

Let's say a user create a task that would start the 29/10/2020, i need to create that task in between the task that start the 28/10/2020 and the one that start the 02/11/2020.

Anybody has an idea to get the immediate inferior date (if the exact one doesn't exist) ?

Set R = .Cells.Find(what:=(<=)findStr, LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious)