Sub SelecDate()
Dim dat As Variant, w As Worksheet, cel As Range
1 dat = InputBox("Entrez une date :", "Recherche date")
If dat = "" Then Exit Sub
If Not IsDate(dat) Then GoTo 1
dat = CDate(dat)
For Each w In Worksheets
For Each cel In w.[A16:A30]
If cel = dat Then
Application.Goto cel.Offset(, 1)
Exit Sub
End If
Next
Next
MsgBox "Date introuvable..."
End Sub