Consolidation plusieurs tableaux problème de compteur boucle

Bonjour les amis,

J'ai créé un code VBA afin d'ouvrir des fichiers (R1, R2, R3 et R4) et copier coller des tableaux de différentes tailles d'une manière linéraire dans un seul fichier. Pour ce, j'ai déclaré plusieurs variables qui vont me permettre de sauter un certain nombre de cellules avant de coller le prochain tableau. Le resultat attendu c'est d'avoir 4 tableaux alignés avec le contenu du R1 jusqu'à R4. Le problème c'est qu'après la fin de l'execution de la macros je découvre que j'ai le contenu du R4 qui est dupliqué sur les 4 tableaux. Je ne sais pas comment faire pour que le compteur ne démarre pas à chaque fois de 1 au niveau des variables j, l, k et m. Le code est le suivant :

Sub Enquete()

Dim i As Long, j As Long
Dim wb As Workbook

For i = 1 To 2
For j = 1 To 10 Step 5
For l = 1 To 16 Step 8
For k = 1 To 8 Step 4
For m = 1 To 14 Step 7

Set wb = Application.Workbooks.Open("C:\Users\dossier\Desktop\Folder" & "\R" & i & ".xlsx", UpdateLinks:=0)

    Windows("R" & i & ".xlsx").Activate
    Sheets("Nombre").Select
    Range("E7:I53").Select
    Selection.Copy

    Workbooks("Analyse.xlsm").Activate
    Sheets("Nombre").Select
    Cells(5, j + 4).Select
    ActiveSheet.Paste

    Application.DisplayAlerts = False

    Windows("R" & i & ".xlsx").Activate
    Sheets("Nombre").Select
    Range("E129:L164").Select
    Selection.Copy

    Workbooks("Analyse.xlsm").Activate
    Sheets("Nombre").Select
    Cells(119, l + 4).Select
    ActiveSheet.Paste

    Application.DisplayAlerts = False

    Windows("R" & i & ".xlsx").Activate
    Sheets("Nombre").Select
    Range("E58:I114").Select
    Selection.Copy

    Workbooks("Analyse.xlsm").Activate
    Sheets("Nombre").Select
    Cells(56, j + 4).Select
    ActiveSheet.Paste

    Application.DisplayAlerts = False

    Windows("R" & i & ".xlsx").Activate
    Sheets("Nombre").Select
    Range("E170:L203").Select
    Selection.Copy

    Workbooks("Analyse.xlsm").Activate
    Sheets("Nombre").Select
    Cells(159, l + 4).Select
    ActiveSheet.Paste

    Application.DisplayAlerts = False

    Windows("R" & i & ".xlsx").Activate
    Sheets("Nombre").Select
    Range("E211:H243").Select
    Selection.Copy

    Workbooks("Analyse.xlsm").Activate
    Sheets("Nombre").Select
    Cells(197, k + 4).Select
    ActiveSheet.Paste

    Application.DisplayAlerts = False

    Windows("R" & i & ".xlsx").Activate
    Sheets("Nombre").Select
    Range("E249:K266").Select
    Selection.Copy

    Workbooks("Analyse.xlsm").Activate
    Sheets("Nombre").Select
    Cells(234, m + 4).Select
    ActiveSheet.Paste

    Application.DisplayAlerts = False

    Workbooks("R" & i & ".xlsx").Close False

    Next 'i
        Next 'j
            Next 'l
                Next 'k
                    Next 'm

End Sub

merci beaucoup !!

Bonjour,

Un peu de lecture pour commencer, vous ferai du bien je pense

https://learn.microsoft.com/fr-fr/dotnet/visual-basic/programming-guide/concepts/object-oriented-pro...

A+9