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