Besoin d'aide pour l'exécution de plusieurs "Sub" a la fois sachant que chaque "Sub" est lié

Bonjour ,
J'aimerai exécuter plusieurs sub à l'aide d'un macro , mais le problème est que chaque "sub" est lié à un autre , voici mon code des différents "sub" , une aide me serait vraiment bénéfique , Merci :(:(

Code:

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
Sub N1()
    Dim annee As Integer
    annee = Year([date_fin]) + 1
    Call remplissageFeuilleSuivante("CalculN", "CalculN+1", annee)
End Sub
Sub N2()
    Dim annee As Integer
    annee = Year([date_fin]) + 2
    Call remplissageFeuilleSuivante("CalculN+1", "CalculN+2", annee)
End Sub
Sub N3()
    Dim annee As Integer
    annee = Year([date_fin]) + 3
    Call remplissageFeuilleSuivante("CalculN+2", "CalculN+3", annee)
End Sub
Sub N4()
    Dim annee As Integer
    annee = Year([date_fin]) + 4
    Call remplissageFeuilleSuivante("CalculN+3", "CalculN+4", annee)
End Sub
Sub N5()
    Dim annee As Integer
    annee = Year([date_fin]) + 5
    Call remplissageFeuilleSuivante("CalculN+4", "CalculN+5", annee)
End Sub
Sub N6()
    Dim annee As Integer
    annee = Year([date_fin]) + 6
    Call remplissageFeuilleSuivante("CalculN+5", "CalculN+6", annee)
End Sub
Sub N7()
    Dim annee As Integer
    annee = Year([date_fin]) + 7
    Call remplissageFeuilleSuivante("CalculN+6", "CalculN+7", annee)
End Sub
Sub N8()
    Dim annee As Integer
    annee = Year([date_fin]) + 8
    Call remplissageFeuilleSuivante("CalculN+7", "CalculN+8", annee)
End Sub