selection de cellule dans une boucle ne fonctionne

Bonsoir,


Je tiens a remercier michel grace a qui mon projet avant pas mal
voila je fais une recherche de fichier doublon dans mes cd-rom.
Grace a vos conseil j'arrive a archiver tous les fichiers dans une feuille excel ensuite je souhaite faire une recherche des fichiers doublons et la j'ai un petit probleme :

Private Sub fichierdoublon_Click()
Dim bouclefeuille, nbfeuille

nbfeuille = ActiveWorkbook.Worksheets.Count '(feuilles de calcul)
For bouclefeuille = 1 To nbfeuille
Worksheets(bouclefeuille).Select
Cells(65536, 2).Select
'Range('B65536').Select
Selection.End(xlUp).Select
Next bouclefeuille
End Sub


Je selectionne les feuilles les une a une selectionne la cellule B65536 puis remonter jusqu'a la premiere cellule remplie. Pour la premiere feuille il n'y a pas de probleme mais pour bouclefeuille = 2 j'ai un message d'erreur.
Quelqu'un pourrait-il m'eclairer sur ce point.


Je vous remercie car la je ne vois vraiment pas le probleme et bravo pour ce site.