Sub test()
Dim Dat As Long, Lig0&, Lig1&, Lig2&, Lch2#, Lch3#, LchX&, LchY&, LchZ&
Dat = DateValue("4/9/21")
On Error Resume Next
Lig0 = Application.Match(Dat, [A:A], 0): MsgBox "Lig0 = " & Lig0
Lig1 = Application.Match(Dat, [A:A], -1): MsgBox "Lig1 = " & Lig1
Lig2 = Application.Match(Dat, [A:A], 1): MsgBox "Lig2 = " & Lig2
Lch2 = Application.VLookup(Dat, Range(Cells(3, 1), Cells(50, 7)), 3, True): MsgBox "Lch2 = " & Lch2
Lch3 = Application.VLookup(Dat, Range(Cells(3, 1), Cells(50, 7)), 3, False): MsgBox "Lch3 = " & Lch3
LchX = Application.Match(Dat, Range(Cells(3, 1), Cells(50, 1)), -1): MsgBox "LchX = " & LchX
LchY = Application.Match(Dat, Range(Cells(3, 1), Cells(50, 1)), 0): MsgBox "LchY = " & LchY
LchZ = Application.Match(Dat, Range(Cells(3, 1), Cells(50, 1)), 1): MsgBox "LchZ = " & LchZ
End Sub