Sub RechercheDateFind2()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
MsgBox Format(CDate(Cells(2, 14)), "ddd dd") 'pour vérifier le format d'une valeur de la colonne
MsgBox Format(CDate(d), "ddd dd") 'pour vérifier l'application du format de la valeur rentrée
On Error Resume Next
[N:N].Find(What:=Format(CDate(d), "ddd dd"), LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub