Affectation particulière d'un entier en VBA

Bonjour a tous,

J'ai une requête un peu particulière (je crois !). Pour ma ma macro, j'ai défini un entier i et je voudrais qu'il prenne une valeur un peu particulière.

J'ai une colonne avec des années, par exemple dans cette colonne il y a 10 fois "2000" de la ligne 1 à 10 et 10 fois "2001" de la ligne 11 à 20 et je voudrais que i soit égal à la ligne de la 1ère cellule qui contient l'année 2001. Ici en l'occurence 11.

L'un d'entre vous connaitrait-il la commande VBA qui effectue cette recherche puis affecte en i le numéro de ligne voulu ?

NB : Pour ma macro, je dois le faire plusieurs fois donc l'idée finale serait de faire une boucle de cette commande et donc à chaque fois rechercher la ligne de la 1ère cellule qui contient l'année 2000+k et l'affecter à cet entier i.

Supposons que ta colonne soit B

Sub toto()
k=1
i = Range("B:B").Find(2000 + k).Row
End Sub

i vaudra 11

Merci beaucoup, malheureusement cela ne marche pas, j'ai comme message d'erreur "Erreur d'exécution 91 Variable objet ou variable de bloc non défini." J'ai pourtant bien défini i au début de la macro

Et bien ça marche chez moi.

C'est bon finalement, merci de ton aide !