Dans le tableau ci-joint, j'aimerais pouvoir inscrire une date en E2 et en cliquant sur valider que le tableau se positionne sur la bonne date qui se trouve en colonne B
Je vous souhaite une bonne journée et vous remercie par avance de votre aide
Sub Cherche()
Dim Ligne%
On Error Resume Next
Ligne = Application.Match([E2], [B:B], 0)
If Ligne = 0 Then Exit Sub ' Date non trouvée
Cells(Ligne + 16, "A").Select ' Positionnement curseur
End Sub