Euromillion et mes numéros choisis

Bonjour,
n'ayant malheureusement jamais gagner le gros lot, je me suis demandé si les numéros choisis n'étaient pas déjà sortis. Donc en tant que vieux novice je me suis décidé, avec l'aide de ce forum, à faire ces codes.
Le premier (Euromillion) pour connaître les numéros le plus souvent sortis et le second (NumerosSortis) pour contrôler les numéros choisis.
La Sheet1 reprend tous les tirages et dans la Sheet2 sont repris les numéros choisis.

Pour la macro NumerosChoisis, vu que la Sheet1 posséde plus de 500 lignes, l'opération dure un certain temps. J'ai d'ailleurs fait afficher un(e) Msgbox à la fin de chaque contrôle de ligne de la Sheet2.
En insérant une ligne vide, dans les Sheet1 ou Sheet2, vous pouvez arrêter le processus à ce niveau. Il est préférable d'effacer le contenu des colonnes I et suivantes de la Sheet2 avant d'exécuter la macro.

Je voudrais avoir vos conseils afin d'améliorer ces macros, c à d simplifier les codes tels que Sheets("Feuil1").Select ou Sheets("Feuil2").Select que je suis obligé de mettre, etc

en attache le fichier EuromillionTest.xls

Merci d'avance

Microsoft Office Excel 2003 Sp3
XP Sp3
P4 3.2Ghz 1Go RAM