Bonjour à toutes et à tous,

je fais appel à votre génie pour m'aider à comprendre ce qui ne va pas dans mon code vba qui a pour objectif d'ouvrir tous les classeurs d'un dossier (dossier 2018) et de parcourir toutes les feuilles de la numéro 4 à la 15. Pour chacune des feuilles je lui demande de copier un tableau en commençant en ligne 3 jusqu'à la dernière ligne, puis de coller les sélections les unes en dessous des autres dans un autre classeur "conso fichier"...

l’exécution de cette ne se déroulement pas correctement, elle bloque à "for j..."

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub ouvertureclasseur()
 
    Dim Chemin As String, Fichier As String
 
    'Définit le répertoire contenant les fichiers
    Chemin = "U:\2018\"
 
    'Boucle sur tous les fichiers xls du répertoire.
 
    Fichier = Dir(Chemin & "*.xls")
 
    Do While Len(Fichier) > 0
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Debug.Print Chemin & Fichier
        Fichier = Dir()
 
        'pour lire toutes les feuilles à consolider
 
     For j = 4 To 15
 
     Sheets(j).Select
     derniereligne = Range("a1000000").End(xlUp).Row
 
        For i = 3 To derniereligne
 
     Sheets(j).Select
     Rows(i).Select
     Selection.Copy
        Workbooks("conso fichier").Activate
 
     Sheets("feuil1").Select
     lastrowfeuil1 = Range("a1000000").End(xlUp).Row + 1
     Cells(lastrowfeuil1, 1).Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
 
        Next i
 
     Next j
 
 
    Loop
 
 
End Sub
Je vous remercie par avance pour le temps et l'attention que vous porterez à ma demande,

Merci pour vos retours !