inputBox

Sub rechdate()
'sur une proposition de job75 (XLD)
Dim x$, i As Double, lig&, j As Variant, s

Encore:
  x = InputBox("Date recherchée :", "Recherche", x)
  If x = "" Then Exit Sub
  s = Split(x, "/")
  If UBound(s) = 1 Then x = x & "/" & [a5]
  If Not IsDate(x) Then GoTo Encore
  If Val(s(1)) < 1 Or Val(s(1)) > 12 Then GoTo Encore
  i = CDbl(CDate(x))
  With ActiveSheet.UsedRange
    For lig = 1 To .Rows.Count
      j = Application.Match(i, .Rows(lig), 0)
      If IsNumeric(j) Then
        .Cells(lig, j).Select
        Exit For
      End If
    Next lig
    If IsError(j) Then GoTo Encore
  End With
End Sub

Sub RechercheDateLigne()
Dim lig&, x$, i As Variant
lig = 9 'ligne de la recherche, à adapter
If Not IsDate("1/1/" & CStr([A5])) Then [A5] = Year(Date) 'sécurité
1 x = InputBox("Date recherchée :", "Recherche", x)
If x = "" Then Exit Sub
If Not IsDate(x) Then GoTo 1
i = CDbl(DateSerial([A5], Month(x), Day(x)))
i = Application.Match(i, Rows(lig), 0)
If IsError(i) Then GoTo 1
Cells(lig, i).Select
End Sub

Sub RechercheDateFeuille()
Dim x$, i As Double, lig&, j As Variant
If Not IsDate("1/1/" & CStr([A5])) Then [A5] = Year(Date) 'sécurité
1 x = InputBox("Date recherchée :", "Recherche", x)
If x = "" Then Exit Sub
If Not IsDate(x) Then GoTo 1
i = CDbl(DateSerial([A5], Month(x), Day(x)))
With ActiveSheet.Rangeuse
  For lig = 1 To .Rows.Count
    j = Application.Match(i, .Rows(lig), 0)
    If IsNumeric(j) Then .Cells(lig, j).Select: Exit For
  Next
  If IsError(j) Then GoTo 1
End With
End Sub

=DATEVAL("1/"&A5)

1 x = InputBox("Date recherchée :", "Recherche", x)

1 x = InputBox("Date recherchée :", "Recherche", Date)

If [A5] = Year(Date) Then x = Format(Date, "dd/mm")
1 x = InputBox("Date recherchée :", "Recherche", x)