Credevo che fosse ciò che volevi: che non desse errore.
Del resto cosa vuoi che faccia? Che dia un messaggio? Ecco:

Sub CercaInput()
Dim plage As Range, valeur
Set plage = Range("A1:A10")
valeur = InputBox("Valore da cercare :")
If valeur = "" Then Exit Sub
If InStr(1, valeur, _
Application.International(xlDateSeparator)) > 0 Then
valeur = CDate(valeur)
End If
If Not plage.Find(valeur) Is Nothing Then
plage.Find(valeur).Select
Else
MsgBox ("Testo non trovato")
End If
End Sub

Ciao