Bonjour je suis en train de faire un code mais au moment de le tester l'éditeur vba me met "procédure trop grande"

J'ai déjà fait une boucle pour le réduire mais je pense qu'il faudrait que j'en fasse une seconde le probleme est qu'il m'affiche les resulat en double quand je fais ma seconde boucle

Donc voila c'est un tableau qui fonctionne avec 13 colonnes et 8 lignes, mon probleme c'est le If/and qui compare les données avec une autre feuilles, j'ai essayer de fare 3 boucles mais ça ne marche pas (code 2)

voici mon code qui fonctionne avec une boucle

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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
Sub comparateur()
 
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(6).Find("").Row
Sheets("comparateur").Activate
 
For i = 23 To 27
Cells(i, 2).Select
 If Cells(i, 22) = Cells(i, 1) And Sheets("calculateur").Cells(28, 3) < Sheets("comparateur").Cells(28, 2) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 2).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 2).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 2).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 2).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 3).Select
 If Cells(i, 3) = Cells(i, 1) And Sheets("calculateur").Cells(28, 4) < Sheets("comparateur").Cells(28, 3) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 3).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 3).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 3).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 3).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 4).Select
 If Cells(i, 4) = Cells(i, 1) And Sheets("calculateur").Cells(28, 5) < Sheets("comparateur").Cells(28, 4) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 4).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 4).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 4).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 4).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 5).Select
 If Cells(i, 5) = Cells(i, 1) And Sheets("calculateur").Cells(28, 6) < Sheets("comparateur").Cells(28, 5) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 5).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 5).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 5).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 5).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 6).Select
 If Cells(i, 6) = Cells(i, 1) And Sheets("calculateur").Cells(28, 7) < Sheets("comparateur").Cells(28, 6) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 6).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 6).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 6).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 6).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 7).Select
 If Cells(i, 7) = Cells(i, 1) And Sheets("calculateur").Cells(28, 8) < Sheets("comparateur").Cells(28, 7) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 7).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 7).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 7).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 7).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
 For i = 23 To 27
Cells(i, 8).Select
 If Cells(i, 8) = Cells(i, 1) And Sheets("calculateur").Cells(28, 9) < Sheets("comparateur").Cells(28, 8) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 8).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 8).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 8).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 8).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 9).Select
 If Cells(i, 9) = Cells(i, 1) And Sheets("calculateur").Cells(28, 10) < Sheets("comparateur").Cells(28, 9) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 9).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 9).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 9).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 9).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 10).Select
 If Cells(i, 10) = Cells(i, 1) And Sheets("calculateur").Cells(28, 11) < Sheets("comparateur").Cells(28, 10) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 10).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 10).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 10).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 10).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 11).Select
 If Cells(i, 11) = Cells(i, 1) And Sheets("calculateur").Cells(28, 12) < Sheets("comparateur").Cells(28, 11) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 11).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 11).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 11).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 11).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 12).Select
 If Cells(i, 12) = Cells(i, 1) And Sheets("calculateur").Cells(28, 13) < Sheets("comparateur").Cells(28, 12) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 12).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 12).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 12).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 12).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
For i = 23 To 27
Cells(i, 13).Select
 If Cells(i, 13) = Cells(i, 1) And Sheets("calculateur").Cells(28, 14) < Sheets("comparateur").Cells(28, 13) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, 13).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, 13).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, 13).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, 13).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
 
sheets("accueil").activate
end sub
code 2:

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
Sub comparateur()
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(6).Find("").Row
Sheets("comparateur").Activate
 
For i = 23 To 27
For e = 2 To 13
For c = 3 To 14
 
Cells(i, 2).Select
Cells(23, e).select
Cells(28, c).select
 
If Cells(i, e) = Cells(i, 1) And Sheets("calculateur").Cells(28, c) < Sheets("comparateur").Cells(28, e) Then
        Sheets("synthese").Cells(numlignevide, 10).Value = Sheets("COMPARATEUR").Cells(28, e).Value
        Sheets("synthese").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR").Cells(i, e).Value
        Sheets("synthese").Cells(numlignevide, 11).Value = Sheets("calculateur").Cells(29, c).Value
        Sheets("synthese").Cells(numlignevide, 9).Value = Sheets("COMPARATEUR").Cells(22, e).Value
        Sheets("synthese").Cells(numlignevide, 8).Value = Sheets("COMPARATEUR").Cells(21, 2).Value
        Sheets("synthese").Cells(numlignevide, 6).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
Next
Next
Next
 
sheets("accueil").activate
end sub
Ce code me donne des résultats mais pas ce que je veux (doublons, cellules pas au bon endroit) etc. Je suis à cour d'idée pour réduire mon code surtout que ce n'est qu'un seul tableau que j'ai a analysé, j'en ai une trentaine comme ça

Il me faudrait un peu d'aide, peut etre pas me refaire le code mais peut être me guider sur une voie ou m'expliquer pourquoi ce que j'ai fait ne marche pas bien. Je pense que c'est ma variable c dans l'autre feuille qui pose problème met la ça dépasse vraiment ce que je sais faire et je ne peux pas tricher en faisant mon 1er code car vu le nombre de tableau c'est beaucoup trop long pour le vba apparemment

Merci beaucoup pour votre temps et votre aide