Comparer l'information de cellules d'une autre feuille excel

Bonjour !

Voilà, toute jeune étudiante en gestion et en programmation, j'ai un petit soucis  

Je simule la création d'un camp de vacance. Tout doit être programmé.
Et donc, je crée sur ma feuille 1 la facture et les données des vacanciers feuille 2. Or dans ce camp de vacance, chaque vacancier se voit attribué un code. Et donc dans la facture ( feuille 1), en écrivant le code, il faut que mon programme aille chercher les informations de ce client dans la feuille 2 et m'inscrive ces informations dans différentes cellules.

Personnellement j'ai écris :

i = 3

    Code_Vacancier = InputBox("Entrez le code de la personne :", "Saisie", "CL001")

    Sheets("feuille 2").Activate

    Sheets("feuille 2").Select

    Code = Worksheets("feuille 2").Cells(i, 1)

 
Do While Code <> Code_Vacancier

        i = i + 1

Loop

Pour le client CL001 tout va bien, mais pour les autres, Excel me laisse tomber et ne répond plus.  
Est-ce que quelqu'un peut me sauver ?