Extraction de liasse budgétaires

[ker92]

Regarde la pièce jointe Extraction Liasse BU 2.zipBonjour à tous!
Je débute un stage et j'essaye d'extraire des données provenant de différents tableaux excel batis sous la meme forme (chaque cellule (x;y) de l'onglet z donne la meme information) à partir d'une macro qui avait deja été utilisée par un autre service de ma boite. Seulement ca ne fonctionne pas...j ai fait quelques modifications, notament le chemin et le nombre de chemins (avant, T=1 to 7). Voici ce que m'indique le mode "pas à pas" avec surligné en jaune "sub consolidation()":

Sub consolidation()

Dim NOM As String


For O = 1 To 3 '2 car on va rechercher 2 onglets (BPM et BPF)


Encours = ActiveWorkbook.Name
onglet = Workbooks(Encours).Sheets("PARAM_MACRO").Cells(21 + O, 8).Value
DEBUT = Workbooks(Encours).Sheets("PARAM_MACRO").Cells(21 + O, 9).Value
FIN = Workbooks(Encours).Sheets("PARAM_MACRO").Cells(21 + O, 10).Value
NOM = Workbooks(Encours).Sheets("PARAM_MACRO").Cells(21 + O, 12).Value & "_" & "AMO"


Worksheets(NOM).Range("a10:z150").Clear


i = 10


For T = 1 To 6

chemin = Worksheets("PARAM_MACRO").Cells(21 + T, 4).Value
fichier = Dir(chemin & "\*.Xls")

application.ScreenUpdating = False



Do While Len(fichier) > 0


Workbooks.Open chemin & "\" & fichier, False, True
Sheets(onglet).Range(DEBUT, FIN).Copy
Windows(Encours).Activate
Worksheets(NOM).Cells(i + 1, 1).Value = Workbooks(fichier).Sheets("FILIALE").Range("d4").Value
Worksheets(NOM).Cells(i + 1, 2).PasteSpecial xlPasteValues
Worksheets(NOM).Cells(i + 1, 2).PasteSpecial xlPasteFormats
Worksheets(NOM).Cells(i + 2, 1) = Worksheets("PARAM_MACRO").Cells(21 + T, 3).Value
Workbooks(fichier).Close SaveChanges:=False
i = i + 1
fichier = Dir

Loop


application.ScreenUpdating = True



i = i + 2

Next T

Next O


MsgBox " *** " & "copie effectuée !" & " *** "
End Sub

Ils me disent donc que la copie a été effectuée mais je ne la voit pas...elle devrait etre dans les trois autres onglets du classeur excel. Vous pouvez trouver le classeur en piece jointe, et en modifiant je chemin pour le mener à vos tableaux, peut etre trouverez vous le probleme...
Je vous précise que je fais mes tous premiers pas avec excel et encore plus avec les macros!
Merci d'avance!