Recherche date ou la suivante dans colonne

Bonjour à tous,

En VBA, je cherche le n° de la ligne du jour dans une colonne avec des dates croissantes.

Si la date du jour n'est pas dans la colonne, je souhaite avoir la 1ère date suivante dans les 7 jours suivants.

Si il n'y a pas de date dans les 7 jours suivants = réponse par Msgbox.

J'ai la solution pour trouver la date du jour avec Find mais je n'ai pas la solution pour trouver la 1ère date suivante.

i = Sheets("Feuil1").Range("A1:A100").Find(what:=CDate("29/03/2020"), LookIn:=xlValues).Row

D'avance merci de votre aide.

J'ai trouvé 2 solutions.

Merci à Eriic et à dudesson.

Bonjour

Une variante.

Bye !

Merci à gmb,