Sub TestII()
Dim X, madate
madate = CDate("01/03/2020")
X = Application.Match(CLng(madate), Sheets("CA").Range("D:D"), 0)
If Not IsError(X) Then
MsgBox X, vbInformation, "N° de ligne"
Else
MsgBox "Pas de correspondance", vbCritical, "Erreur"
End If
End Sub