Bonjour, je dois effectuer des boucles entre des classeurs et je ne m'y connais pas du tout.

J'ai un classeur principale "classeurdestination" et 21 autres classeurs "classeur1 à classeur21"pour les années de 2017 à 2037

J'importe les données du classeur1 (2017) au classeurdestination. Ce dernier est un simulateur. Il en ressort des résultats que je copie dans le classeur2 (2018). Ces données du classeur2 doivent ensuite être copiées dans le simulateur "classeurdestination" et me faire sortir des données que je dois copier dans le classeur3(2019). et ainsi de suite jusqu'au classeur21.

Pourriez vous m'aider pour ce codage svp? merci
Dans le code ci dessous je le fais année après année et j'aimerais une boucle pour le simplifier. Merci
Une autre boucle aussi, c'est que dans le classeur classeur1, il ya 430 entreprises classé en colonne de B à PW et j'aimerais une boucle pour faire ce qui suit pour chaque entreprise et pour chaque année en gros

Merci d'avance pour votre aide


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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Sub essaisimulateur1()
Dim classeur1 As Workbook
Dim classeur2 As Workbook, classeur3 As Workbook, classeur4 As Workbook, classeur5 As Workbook, classeur6 As Workbook, classeur7 As Workbook, classeur8 As Workbook, classeur9 As Workbook, classeur10 As Workbook, classeur11 As Workbook, classeur12 As Workbook, classeur13 As Workbook, classeur14 As Workbook, classeur15 As Workbook, classeur16 As Workbook, classeur17 As Workbook, classeur18 As Workbook, classeur19 As Workbook, classeur20 As Workbook, classeur21 As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
 
Chemin = ThisWorkbook.Path
'définir le classeur destination
Set classeurDestination = Application.Workbooks.Open(Chemin & "/Simulateur scenario 1.xlsm")
Set classeur1 = Application.Workbooks.Open(Chemin & "/Base2017.xlsm")
Set classeur2 = Application.Workbooks.Open(Chemin & "/Base2018.xlsm")
 
'copier les données de la feuille"Base" du classeur1 vers la feuille "resultat" du classeur destination
classeur1.Sheets("Base").Cells("B1:B89").Copy classeurDestination.Sheets("resultat").Range("B1")
 
' Copier les paramètres pour l'année de simulation
classeurDestination.Activate
Worksheets("resultat").Select
 
    Range("P2").Select
    ActiveCell.FormulaR1C1 = _
        "=HLOOKUP(R1C3,Paramètres!R1C1:R77C22,resultat!RC[-1],FALSE)"
    Range("P2").Select
    Selection.AutoFill Destination:=Range("P2:P78")
    Range("P2:P78").Select
 
'copier les données de la feuille"Base" du classeur source vers la feuille "resultat" du classeur destination
classeurDestination.Sheets("resultat").Range("C1:C89").Select
Selection.Copy
classeur2.Activate
Worksheets("Feuil1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
  'copier les données de la feuille"feuil1" du classeur2 vers la feuille "resultat" du classeur destination
classeur2.Sheets("Feuil1").Range("B1:B89").Copy classeurDestination.Sheets("resultat").Range("B1")
 
'--------------------------------------------------------------------------------------------------------------
Set classeur3 = Application.Workbooks.Open(Chemin & "/Base2019.xlsm")
 
 
' Copier les paramètres pour l'année de simulation
classeurDestination.Activate
Worksheets("resultat").Select
 
    Range("P2").Select
    ActiveCell.FormulaR1C1 = _
        "=HLOOKUP(R1C3,Paramètres!R1C1:R77C22,resultat!RC[-1],FALSE)"
    Range("P2").Select
    Selection.AutoFill Destination:=Range("P2:P78")
    Range("P2:P78").Select
 
'copier les données de la feuille"Base" du classeur source vers la feuille "resultat" du classeur destination
classeurDestination.Sheets("resultat").Range("C1:C89").Select
Selection.Copy
classeur3.Activate
Worksheets("Feuil1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
  'copier les données de la feuille"feuil1" du classeur2 vers la feuille "resultat" du classeur destination
classeur3.Sheets("Feuil1").Range("B1:B89").Copy classeurDestination.Sheets("resultat").Range("B1")
 
'--------------------------------------------------------------------------------------------------------------
 
Set classeur4 = Application.Workbooks.Open(Chemin & "/Base2020.xlsm")
 
'Copier les paramètres pour l'année de simulation
classeurDestination.Activate
Worksheets("resultat").Select
 
    Range("P2").Select
    ActiveCell.FormulaR1C1 = _
        "=HLOOKUP(R1C3,Paramètres!R1C1:R77C22,resultat!RC[-1],FALSE)"
    Range("P2").Select
    Selection.AutoFill Destination:=Range("P2:P78")
    Range("P2:P78").Select
 
'copier les données de la feuille"Base" du classeur source vers la feuille "resultat" du classeur destination
classeurDestination.Sheets("resultat").Range("C1:C89").Select
Selection.Copy
classeur4.Activate
Worksheets("Feuil1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
  'copier les données de la feuille"feuil1" du classeur2 vers la feuille "resultat" du classeur destination
classeur4.Sheets("Feuil1").Range("B1:B89").Copy classeurDestination.Sheets("resultat").Range("B1")