je suis besoin de l'aide CVP. de Trouver le code VBA copier coller

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Range (A10:P) de Feuil1
 
Range (A10:P) de Feuil2
 
Range (A10:P) de Feuil3
 
Range (A10:P) de Feuil4

vers Feuil 5

voila Exemple de Classeur 2
Urgent

Voila le code$
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
sheets(a).Select
 
i = 10
Do While Cells(i, 7) <> ""
 
    Range(Cells(10, 1), Cells(i, 17)).Copy
 
    Sheets(z).Select
    j = 10
 
        Cells(j, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
 
i = i + 1
Sheets(a).Select
Cells(1, 1).Select
Loop
 
 
Sheets(b).Select
 
k = 10
Do While Cells(k, 7) <> ""
 
    Range(Cells(10, 1), Cells(k, 17)).Copy
 
    Sheets(z).Select
 
 
        Cells(i, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
 
k = k + 1
Sheets(b).Select
Cells(1, 1).Select
Loop
 
End Sub