Boucle ouverture fichier

Bonjour à tous,

j'utilise le code suivant que j'ai trouvé pour ouvrir plusieurs fichiers qui se trouvent dans un même dossier. A termes, il y aura 30 fichiers dans ce dossier. J'ai un pb avec ma boucle car elle m'ouvre bien les fichiers que j'ai pour l'instant (3 sur les 30) mais une fois quelle a ouvert les 3 fichiers et refermés, elle recommence. Le but est de récupérer des relevés de mesures de pièces d'une colonne et de les coller dans une colonne d'un autre fichier (cette partie fonctionne). C'est le fait de stopper après avoir ouvert tous les fichiers!!

Programmation sous Excel 2007, VBA, windows XP.

Voici le code (j'ai supprimé la partie de copier/coller d'un fichier à l'autre. La variable a, me permet de me décaller de 5 colonnes pour coller les infos du fichier suivant...


Sub ouvrir_fichiers()
AffecterVariables2
Application.ScreenUpdating = False
Dim fichier As String, chemin As String
Dim Wb As Workbook

For a = 12 To 157
chemin = "C:\Documents and Settings\k004418\Bureau\UGV VIPER\Suivi MMT\fichier xls\"
fichier = Dir(chemin & "*.xls")



Do While fichier <> ""
Set Wb = Workbooks.Open(chemin & fichier)


--> c'est à ce moment qu'il fait le copier/coller d'un fichier à l'autre

Windows(fichier).Activate
'fermer le fichier Excel sans sauvegarder
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False


a = a + 5
Set Wb = Nothing
fichier = Dir


Application.ScreenUpdating = True

Loop
Next


End Sub


Sub AffecterVariables2()
LeFichier = ThisWorkbook.Name
End Sub



Merci pour votre aide.