Boucle dans un dossier

Bonjour à tous,

voila je souhaite effetuer un traitement sur les fichiers contenu dans un dossier. Mais je n'arrive pas à créer une boucle sur mes fichiers.

J'ai essayé ceci:

Chemin = "C:\..."
Fichier = Dir(Chemin & "*.*")

Do While Len(Fichier) > 0
Debug.Print Chemin & Fichier
Fichier = Dir
Loop Cependant, ce code lit 1 fichier sur 5...
J'ai donc 4 fichiers qui ne sont pas traités à chaque boucles.

Comment rectifié ceci svp ?

Merci!