Espace de pile insuffisant

Bonjour tout le monde,

J'ai une macro qui tourne bien mais seulement pour un nombre de cellules limité, dès que le fichier de base devient trop grand j'ai le message suivant : espace de pile insuffisant.

D'après ce que j'ai pu trouvé sur google le problème vient du fait que j'appelle mes procédures un trop grand nombre de fois et que mes conditions de sorties sont nazes (un bout de mon code est ci dessous). Apparament j'ai trois solutions:
-j'augmente le paramètre "stacks" dans System.ini ou Win.ini. mais j'suis pas très chaud pour ça.
-je tente de rendre mon code plus compacte (n'étant pas très doué en vba j'ai un peu de mal, j'ai déjà passé pas mal de temps à l'écrire)
- j'ai vu aussi qu'on pouvait "vider" ses variables à la fin d'un processus mais cela ne va-t-il pas annuler l'itération.

Voici un mocreau de mon code:

Sub mise_en_route()

a = 3
B = 3
c = 4
d = 5
e = 6
f = 7
g = 8
h = 9
i = 10

Call itération
End Sub
Sub itération()

'a est la ligne de la première cellule d'un point
'b est la colonne concernée

'je rajoute la ligne suivante dans l'espoir que ça aille plus vite
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
Do While B < 27

Do While a < 5067

'il faut vérifier que l'on a tous les jours de la semaine

If Cells(a, 1) = Cells(i, 1) Then
Call tous_les_jours

ElseIf Cells(a, 1) = Cells(h, 1) Then
Call moins_un_jour

ElseIf Cells(a, 1) = Cells(g, 1) Then
Call moins_deux_jour

ElseIf Cells(a, 1) = Cells(f, 1) Then
Call moins_trois_jours

ElseIf Cells(a, 1) = Cells(e, 1) Then
Call moins_quatre_jours

ElseIf Cells(a, 1) = Cells(d, 1) Then
Call moins_cinq_jours

ElseIf Cells(a, 1) = Cells(c, 1) Then
Call moins_six_jours

Else
Call moins_sept_jours

End If

Loop

'on change de colonne
B = B + 1
a = 3
c = 4
d = 5
e = 6
f = 7
g = 8
h = 9
i = 10

Loop

End Sub

Sub tous_les_jours()

'je rajoute la ligne suivante dans l'espoir que ça aille plus vite
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

'si toutes les cellules sont vides elles notées manquantes
If Application.WorksheetFunction.And(Cells(a, B) = "", Cells(c, B) = "", Cells(d, B) = "", Cells(e, B) = "", Cells(f, B) = "", Cells(g, B) = "", Cells(h, B) = "", Cells(i, B)) Then
Cells(a, B) = "manquante"
Cells(c, B) = "manquante"
Cells(d, B) = "manquante"
Cells(e, B) = "manquante"
Cells(f, B) = "manquante"
Cells(g, B) = "manquante"
Cells(h, B) = "manquante"
Cells(i, B) = "manquante"

End If

'chaque cellule se voit affecté de la moyenne des six autres
If Cells(a, B) = "" Then Cells(a, B) = WorksheetFunction.Average(Cells(c, B), Cells(d, B), Cells(e, B), Cells(f, B), Cells(g, B), Cells(h, B), Cells(i, B))
If Cells(c, B) = "" Then Cells(c, B) = WorksheetFunction.Average(Cells(a, B), Cells(d, B), Cells(e, B), Cells(f, B), Cells(g, B), Cells(h, B), Cells(i, B))
If Cells(d, B) = "" Then Cells(d, B) = WorksheetFunction.Average(Cells(c, B), Cells(a, B), Cells(e, B), Cells(f, B), Cells(g, B), Cells(h, B), Cells(i, B))
If Cells(e, B) = "" Then Cells(e, B) = WorksheetFunction.Average(Cells(c, B), Cells(d, B), Cells(a, B), Cells(f, B), Cells(g, B), Cells(h, B), Cells(i, B))
If Cells(f, B) = "" Then Cells(f, B) = WorksheetFunction.Average(Cells(c, B), Cells(d, B), Cells(e, B), Cells(a, B), Cells(g, B), Cells(h, B), Cells(i, B))
If Cells(g, B) = "" Then Cells(g, B) = WorksheetFunction.Average(Cells(c, B), Cells(d, B), Cells(e, B), Cells(f, B), Cells(a, B), Cells(h, B), Cells(i, B))
If Cells(h, B) = "" Then Cells(h, B) = WorksheetFunction.Average(Cells(c, B), Cells(d, B), Cells(e, B), Cells(f, B), Cells(g, B), Cells(a, B), Cells(i, B))
If Cells(i, B) = "" Then Cells(i, B) = WorksheetFunction.Average(Cells(c, B), Cells(d, B), Cells(e, B), Cells(f, B), Cells(g, B), Cells(h, B), Cells(a, B))
'on change de point

a = 8 + a
c = 8 + c
d = 8 + d
e = 8 + e
f = 8 + f
g = 8 + g
h = 8 + h
i = 8 + i
Call itération

End Sub

Merci.