Option Explicit
Sub Date_atteindre()
Dim c As Range, quand As Date
On Error GoTo fin
quand = CDate(InputBox("Choisir une date..."))
Set c = Columns(1).Find(what:=quand, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then c.Offset(, 1).Select
Exit Sub
fin:
MsgBox "Veuillez saisir une date valide !"
End Sub