Bonjour, étant débutant en VBA, j'ai un peu de mal à optimiser mon code.
Je dois réaliser le calcul de plusieurs indicateurs, à différentes dates. Afin de ne pas avoir à réutiliser pour chaque indicateurs le même code, je cherche à transformer le code suivant en une ou plusieurs boucles :

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
 
T1 = "01/01/2015"
T2 = "01/04/2015"
T3 = "01/07/2015"
T4 = "01/10/2015"
Jan = "01/01/2016"
Fev = "01/02/2016"
Mar = "01/03/2016"
Avr = "01/04/2016"
Mai = "01/05/2016"
Juin = "01/06/2016"
Jui = "01/07/2016"
Aou = "01/08/2016"
Sep = "01/09/2016"
Oct = "01/10/2016"
Nov = "01/11/2016"
Dec = "01/12/2016"
nAn = "01/01/2017"
    If (Sheets("feuil1").Cells(2, 8) < T1) _
        Then Sheets("feuil2").Cells(8, 8) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T1 And Sheets("feuil1").Cells(2, 8) < T2) _
        Then Sheets("feuil2").Cells(8, 9) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T2 And Sheets("feuil1").Cells(2, 8) < T3) _
        Then Sheets("feuil2").Cells(8, 10) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T3 And Sheets("feuil1").Cells(2, 8) <= T4) _
        Then Sheets("feuil2").Cells(8, 11) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T4 And Sheets("feuil1").Cells(2, 8) < Jan) _
        Then Sheets("feuil2").Cells(8, 12) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Jan And Sheets("feuil1").Cells(2, 8) < Fev) _
        Then Sheets("feuil2").Cells(8, 13) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Fev And Sheets("feuil1").Cells(2, 8) < Mar) _
        Then Sheets("feuil2").Cells(8, 14) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Mar And Sheets("feuil1").Cells(2, 8) < Avr) _
        Then Sheets("feuil2").Cells(8, 15) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Avr And Sheets("feuil1").Cells(2, 8) < Mai) _
        Then Sheets("feuil2").Cells(8, 16) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Mai And Sheets("feuil1").Cells(2, 8) < Juin) _
        Then Sheets("feuil2").Cells(8, 17) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Juin And Sheets("feuil1").Cells(2, 8) < Jui) _
        Then Sheets("feuil2").Cells(8, 18) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Jui And Sheets("feuil1").Cells(2, 8) < Aou) _
        Then Sheets("feuil2").Cells(8, 19) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Aou And Sheets("feuil1").Cells(2, 8) < Sep) _
        Then Sheets("feuil2").Cells(8, 20) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Sep And Sheets("feuil1").Cells(2, 8) < Oct) _
        Then Sheets("feuil2").Cells(8, 21) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Oct And Sheets("feuil1").Cells(2, 8) < Nov) _
        Then Sheets("feuil2").Cells(8, 22) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Nov And Sheets("feuil1").Cells(2, 8) < Dec) _
        Then Sheets("feuil2").Cells(8, 23) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Dec And Sheets("feuil1").Cells(2, 8) < nAn) _
        Then Sheets("feuil2").Cells(8, 24) = numCA / denumC
 
    If Sheets("feuil1").Cells(2, 8) >= nAn _
        Then Sheets("feuil2").Cells(8, 25) = numCA / denumC
J'espère que mes explication ne sont pas trop vague..
Merci d'avance pour vos réponses !