Sub test()
Dim Ws2 As Worksheet, Daterow, DateCrit As Date
Set Ws2 = Feuil1
DateCrit = CDate("05/03/2023")
Set plage = Ws2.Range("A2:A" & Ws2.Cells(Ws2.Rows.Count, "A").End(xlUp).Row)
Daterow = Application.Match(CLng(DateCrit), plage, 0)
MsgBox Daterow + 1
Cells(Daterow + 1, 1).Interior.Color = vbYellow
'important
'le "+1" C EST PAR CE QUE TA PLAGE COMMENCE EN [A2]
End Sub