Calcul matriciel sous VBA

Version imprimable

30/11/2019, 12h43
matrixevan

Calcul matriciel sous VBA

Bonjour

Je dois effectuer des calculs sur plusieurs colonnes et plusieurs lignes.

Au lieu de passer par des boucles For, y'aurait il un moyen d'executer les calculs des données de chaque lignes et chaque colonne en meme temps, sachant que chaque données est independante de l'autre.

Car mon programme met trop de temps a tourner, et on m'a proposé de passer par des calculs matriciels pour accelerer le programme mais je ne trouve nulle part comment faire.

Merci

Evan
30/11/2019, 13h38
Invité

Citation:

Envoyé par matrixevan

Bonjour,

Ayant eu le même problème que vous sur des extractions de plus de 20 000 enregistrements, j'ai organisé mes tableaux comme ci-dessous.
Il s'agit ici de numéros de commande pour lesquels je souhaite connaître les sommes (commandées, dépensées, à réceptionner) des postes de commande. Les valeurs sont récupérées au dessus de la ligne de titre avec des fonctions Sommeprod, en faisant varier le numéro de commande en A8 avec une procédure. C'est instantané.

En plus, j'annule le recalcul automatique pendant la procédure car j'ai beaucoup de formules, je recalcule seulement les 3 cellules à récupérer à chaque nouvelle commande.
Pièce jointe 520866
30/11/2019, 13h48
matrixevan

Tu aurais la formule en VBA ?
30/11/2019, 14h11
Invité

Citation:

Envoyé par matrixevan

A adapter : fonction-boucle-multiplier-variables
30/11/2019, 14h11
Desperados_78

Salut,

Je te conseil de faire tes traitements de données et calculs en passant par des TAB et DIC et non sur les cellules directement tu vas gagner énormément de temps de traitement.
Si tu me précises ton besoin je peux te montrer comment faire.

Pierre
30/11/2019, 14h14
matrixevan

je veux bien des precision.

Un gros j'ai un tableau de plusieurs prix qui peuvent etre des regles, suspens ou des total. Et en fonction de ces derneires critères le formules n'est pas la meme. Exemple : pour les regles je dois multipleir le prix de bases par un coefficient.

Voila

Je te propose une solution.

Voila une fonction pour récupérer tout ton tableau dans une variable TAB_Feuil1.
Il te suffira de faire tes traitements dans la variable directement et non sur les cellules.
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 '*********Fonction pour capturer un TAB commencant en A1 d'une feuille**********' Function Capture_Tab(NomFeuille) Dim TAB_TEMP() Sheets(NomFeuille).Select With ActiveWorkbook.Sheets(NomFeuille) lr = Cells(Rows.Count, 1).End(xlUp).Row lc = Cells(1, Columns.Count).End(xlToLeft).Column TAB_TEMP = .Range(.Cells(1, 1), .Cells(lr, lc)).Value End With Capture_Tab = TAB_TEMP End Function '*********Appel de la fonction**********' sub Main() Dim TAB_Feuil1() NomFeuille1 = "Feuill1" TAB_Feuil1 = Capture_Tab(NomFeuille1) end sub
Après avoir fait les calculs et modifié ta variable TAB_Feuil1 il faudra que tu 'Resize' ton tableau sur ta feuille pour mettre à jour tes données.
Attention le Resize ne colle que des données, donc si tu as besoin de garder des mise en forme ext il faut faire attention a resize au bon endroit.
Code:

1 2 3 Sheets(NomFeuille1).Select [A1].Resize(UBound(TAB_Feuil1, 1), UBound(TAB_Feuil1, 2)) = TAB_Feuil1
En passant par une variable tu évites à Excel de faire des traitements sur les cellules ce qui prend beaucoup de temps de traitement.
Si tu as besoin de plus de précision n’hésite pas.

30/11/2019, 17h21
matrixevan

Ok merci de ta réponse, je checkerai ca ce soir.
01/12/2019, 16h00
matrixevan

2 pièce(s) jointe(s)

Pièce jointe 520975

Alors voici ma feuille Sinistres.

Pièce jointe 520979

Et voici mes coefficients.

Je dois calculer la revalorisation des sinistres qui se calcul par la produit du prix du sinistres fois un coefficient qu'on choisit en fonction de la date de survenance et le prix (<1M ou entre 1 et 2M, etc...).

Aurais-tu des pistes ?

Sachant que j'ai deja fait des boucles mais le programme prend trop de temps, j'aimerais passer par des calculs matriciels.

Code:

Worksheets("Revalorisation des sinistres").Range(Cells(6, 7), Cells(nbLigne + 5, nb_annee_dev + 6)).FormulaArray = Worksheets("Sinistres").Range(Cells(6, 7), Cells(nbLigne + 5, nb_annee_dev + 6))

J'ai essayé de faire ca dans un premier temps mais cela ne fonctionne pas. La j'écris juste les prix de la feuille sinistres dans la feuille revalorisation des sinistres.

Evan
01/12/2019, 16h56
matrixevan

En gros j'aimerai que toute les données se calculent en meme temps.

Code:

Worksheets("Revalorisation des sinistres").Range(Cells(6, 7), Cells(5 + nbLigne, 6 + nb_annee_dev)).FormulaArray = "=IF('Revalorisation des sinistres'!R[2]C6=""Réglés"",Sinistres!R[2]C[5]*INDEX('Coefficient de revalorisation'!R7C4:R39C9, MATCH('Revalorisation des sinistres'!R4C4+'Revalorisation des sinistres'!R5C[5]-1, 'Coefficient de revalorisation'!R7C3:R39C3, 0), 1)/INDEX('Coefficient de revalorisation'!R7C4:R39C9, MATCH('Revalorisation des sinistres'!R[2]C4+'Revalorisation des sinistres'!R5C[5]-1, 'Coefficient de revalorisation'!R7C3:R39C3, 0), 1),0)"

Voila ce que j'ai essayé de faire mais ça me met une erreur :

Citation:

impossible de définir la propriété formulaarray de la classe range

Salut,
Je suis pas certain d'avoir tout compris mais je te fais part de mon idée.
Moi je partirai sur une solution comme ci dessous avec mes Coefs que j'entre dans un dictionnaire par valeurs ( < 1M; 1M -2M ;...) avec l'année en clé.
Après avoir mis mes coefs dans des Dic je parcours mon Tableau de Sinistre et avec un select case je fait le liens entre la valeur, l'année et le coefs associé.

C'est juste un brouillon mais si tu peux me fournir un exemple de fichier je peux te faire quelque chose de plus précis.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Dim TAB_Coef(), TAB_Sinistre()
 
Dim DIC_1, DIC_2, DIC_3, DIC_4, DIC_5
 
 
'*********Dictionaire pour tes coefs **********'
Set DIC_1 = CreateObject("Scripting.Dictionary")
Set DIC_2 = CreateObject("Scripting.Dictionary")
Set DIC_3 = CreateObject("Scripting.Dictionary")
Set DIC_4 = CreateObject("Scripting.Dictionary")
Set DIC_5 = CreateObject("Scripting.Dictionary")
 
'*********Capture de tes deux tableaux dans des variables TAB_Coef et TAB_Sinistre **********'
Sheets("Feuil1").Select
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    TAB_Coef = .Range(.Cells(1, 1), .Cells(lr, lc)).Value
End With
 
Sheets("Feuil2").Select
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    TAB_Sinistre = .Range(.Cells(1, 1), .Cells(lr, lc)).Value
End With
 
'*********Ajout des coefs avec l'année en clé et le coeficient associé **********'
For i = 2 To UBound(TAB_Coef)
    DIC_1.Add TAB_Coef(i, 1), TAB_Coef(i, 2)
    DIC_2.Add TAB_Coef(i, 1), TAB_Coef(i, 3)
    DIC_3.Add TAB_Coef(i, 1), TAB_Coef(i, 4)
    DIC_4.Add TAB_Coef(i, 1), TAB_Coef(i, 5)
    DIC_5.Add TAB_Coef(i, 1), TAB_Coef(i, 6)
Next i
 
 
'*********Boucle dans ton tableau de sinistre pour multiplier les valeurs en fonction du coeficient **********'
For i = 2 To UBound(TAB_Sinistre, 1)
    For j = 5 To UBound(TAB_Sinistre, 2)
 
        If TAB_Sinistre(i, j) <> "" Then
 
            Select Case TAB_Sinistre(i, j)
                Case Is < 1000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(TAB_Sinistre(i, 4))
                Case Is < 2000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_2(TAB_Sinistre(i, 4))
                Case Is < 3000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_3(TAB_Sinistre(i, 4))
                Case Is < 4000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_4(TAB_Sinistre(i, 4))
                Case Else
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_5(TAB_Sinistre(i, 4))
            End Select
        End If
    Next j
Next i
 
'*********Resize du TAB_Sinistre pour finaliser ou création d'un TAB_Final pour ne Resize que les données modifiées **********

01/12/2019, 22h15
matrixevan

Merci beaucoup de ta réponse, je vais étudier ça et je reviens vers toi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
For i = 1 To UBound(TAB_Sinistre, 1)
    For j = 4 To UBound(TAB_Sinistre, 2)
 
        If TAB_Sinistre(i, j) <> "" Then
 
            Select Case TAB_Sinistre(i, j)
                Case Is < 1000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(TAB_Sinistre(i, 1))
                Case Is < 2000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_2(TAB_Sinistre(i, 1))
                Case Is < 3000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_3(TAB_Sinistre(i, 1))
                Case Is < 4000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_4(TAB_Sinistre(i, 1))
                Case Else
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_5(TAB_Sinistre(i, 1))
            End Select
        End If
    Next j
Next i

Si je comprends bien, dans ce code, pour la ligne

Code:

TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(TAB_Sinistre(i, 1))

on multiplie le 1e prix du sinistres par le coefficient en fonction de la date de survenance. (ps : ce n'est pas exactement la date de survenance mais je ne voulais pas compliquer les choses, le calculs est plus complexe que cela, je te la detaillerai plus tard)

Code:

DIC_1(TAB_Sinistre(i, 1))

Code:

DIC_1.Add TAB_Coef(i, 1), TAB_Coef(i, 2)

Comment ca se fait que ce code arrive a recuperer le bon coefficient en fonction de la date, tu peux m'expliquer le detail de cette partie du code stp ? Merci

Evan

En modifiant ton code j'arrive à avoir ce que je veux :

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
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
Sub revalorisation()
 
Dim TAB_Coef(), TAB_Sinistre()
 
Dim DIC_1, DIC_2, DIC_3, DIC_4, DIC_5
 
 
'*********Dictionaire pour tes coefs **********'
Set DIC_1 = CreateObject("Scripting.Dictionary")
Set DIC_2 = CreateObject("Scripting.Dictionary")
Set DIC_3 = CreateObject("Scripting.Dictionary")
Set DIC_4 = CreateObject("Scripting.Dictionary")
Set DIC_5 = CreateObject("Scripting.Dictionary")
 
'*********Capture de tes deux tableaux dans des variables TAB_Coef et TAB_Sinistre **********'
Sheets("Coefficient de revalorisation").Activate
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lc = Cells(7, Columns.Count).End(xlToLeft).Column
    TAB_Coef = .Range(.Cells(7, 3), .Cells(lr, lc)).Value
End With
 
Sheets("Sinistres").Select
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lc = Cells(6, Columns.Count).End(xlToLeft).Column
    TAB_Sinistre = .Range(.Cells(6, 4), .Cells(lr, lc)).Value
End With
 
'*********Ajout des coefs avec l'année en clé et le coeficient associé **********'
For i = 1 To UBound(TAB_Coef)
    DIC_1.Add TAB_Coef(i, 1), TAB_Coef(i, 2)
    DIC_2.Add TAB_Coef(i, 1), TAB_Coef(i, 3)
    DIC_3.Add TAB_Coef(i, 1), TAB_Coef(i, 4)
    DIC_4.Add TAB_Coef(i, 1), TAB_Coef(i, 5)
    DIC_5.Add TAB_Coef(i, 1), TAB_Coef(i, 6)
Next i
 
 
'*********Boucle dans ton tableau de sinistre pour multiplier les valeurs en fonction du coeficient **********'
For i = 1 To UBound(TAB_Sinistre, 1)
    For j = 4 To UBound(TAB_Sinistre, 2)
 
        If TAB_Sinistre(i, j) <> "" Then
 
            Select Case TAB_Sinistre(i, j)
                Case Is < 1000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(TAB_Sinistre(i, 1))
                Case Is < 2000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_2(TAB_Sinistre(i, 1))
                Case Is < 3000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_3(TAB_Sinistre(i, 1))
                Case Is < 4000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_4(TAB_Sinistre(i, 1))
                Case Else
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_5(TAB_Sinistre(i, 1))
            End Select
        End If
    Next j
Next i
 
'*********Resize du TAB_Sinistre pour finaliser ou création d'un TAB_Final pour ne Resize que les données modifiées **********
 
 
End Sub

Pour le calcul de revalorisation, en fait c'est : prix * coefficient (date de cotation + annee de developpement -1) / coeffcient (date de survenance + annee de developpement -1)

Date de cotation c'est 2015 dans l'image des Sinistres
Annee de developpement c'est le numero de colonne dans l'image des Sinistres
Date de survenance c'est la colonne numero 2 dans les Sinistres

Voila dis moi si ce n'est pas clair

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
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
 
Sub revalorisation()
 
Dim TAB_Coef(), TAB_Sinistre()
 
Dim DIC_1, DIC_2, DIC_3, DIC_4, DIC_5
 
Dim annee_Cotation As Double
 
annee_Cotation = Worksheets("Sinistres").Range("D4").Value
 
'*********Dictionaire pour tes coefs **********'
Set DIC_1 = CreateObject("Scripting.Dictionary")
Set DIC_2 = CreateObject("Scripting.Dictionary")
Set DIC_3 = CreateObject("Scripting.Dictionary")
Set DIC_4 = CreateObject("Scripting.Dictionary")
Set DIC_5 = CreateObject("Scripting.Dictionary")
 
'*********Capture de tes deux tableaux dans des variables TAB_Coef et TAB_Sinistre **********'
Sheets("Coefficient de revalorisation").Activate
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lc = Cells(7, Columns.Count).End(xlToLeft).Column
    TAB_Coef = .Range(.Cells(7, 3), .Cells(lr, lc)).Value
End With
 
Sheets("Sinistres").Select
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lc = Cells(6, Columns.Count).End(xlToLeft).Column
    TAB_Sinistre = .Range(.Cells(6, 4), .Cells(lr, lc)).Value
End With
 
'*********Ajout des coefs avec l'année en clé et le coeficient associé **********'
For i = 1 To UBound(TAB_Coef)
    DIC_1.Add TAB_Coef(i, 1), TAB_Coef(i, 2)
    DIC_2.Add TAB_Coef(i, 1), TAB_Coef(i, 3)
    DIC_3.Add TAB_Coef(i, 1), TAB_Coef(i, 4)
    DIC_4.Add TAB_Coef(i, 1), TAB_Coef(i, 5)
    DIC_5.Add TAB_Coef(i, 1), TAB_Coef(i, 6)
Next i
 
 
'*********Boucle dans ton tableau de sinistre pour multiplier les valeurs en fonction du coeficient **********'
For i = 1 To UBound(TAB_Sinistre, 1)
    For j = 4 To UBound(TAB_Sinistre, 2)
 
        If TAB_Sinistre(i, j) <> "" And TAB_Sinistre(i, 3) = "Réglés" Then
 
            Select Case TAB_Sinistre(i, j)
                Case Is < 1000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(annee_Cotation) / DIC_1(TAB_Sinistre(i, 1))
                Case Is < 2000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_2(annee_Cotation) / DIC_2(TAB_Sinistre(i, 1))
                Case Is < 3000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_3(annee_Cotation) / DIC_3(TAB_Sinistre(i, 1))
                Case Is < 4000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_4(annee_Cotation) / DIC_4(TAB_Sinistre(i, 1))
                Case Else
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_5(annee_Cotation) / DIC_5(TAB_Sinistre(i, 1))
            End Select
 
        ElseIf TAB_Sinistre(i, j) <> "" And TAB_Sinistre(i, 3) = "Suspens" Then
 
            Select Case TAB_Sinistre(i, j)
                Case Is < 1000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(annee_Cotation + j - 4) / DIC_1(TAB_Sinistre(i, 1) + j - 4)
                Case Is < 2000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_2(annee_Cotation + j - 4) / DIC_2(TAB_Sinistre(i, 1) + j - 4)
                Case Is < 3000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_3(annee_Cotation + j - 4) / DIC_3(TAB_Sinistre(i, 1) + j - 4)
                Case Is < 4000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_4(annee_Cotation + j - 4) / DIC_4(TAB_Sinistre(i, 1) + j - 4)
                Case Else
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_5(annee_Cotation + j - 4) / DIC_5(TAB_Sinistre(i, 1) + j - 4)
            End Select
 
        ElseIf TAB_Sinistre(i, j) <> "" And TAB_Sinistre(i, 3) = "Total" Then
            TAB_Sinistre(i, j) = tab_sinistres(i - 2, j) + tab_sinistres(i - 1, j)
        End If
    Next j
Next i
 
'*********Création d'un TAB_Final pour ne Resize que les données modifiées **********
 
 
End Sub

Voici le code en prenant en compte les bons paramètres.

Desormais je veux ecrire dans ma feuille Revalorisation des sinistres que ressemble exactement a la feuille Sinistres mais avec les donnes revalorisés. Je veux donc écrire les valeurs de la variable Tab_SInistres sur cette feuille. Dois-je passer par une boucle ou ya t'il un moyen d'ecrire tout les valeurs en une etape ?

Evan

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
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
Sub revalorisation()
Call effacer_donnees_revalorisation
'Declaration
Dim i As Integer
Dim nbLigne As Integer
Dim nb_annee_dev As Integer
 
'affectation
nb_annee_dev = 11
 
i = 6
While Feuil3.Cells(i, 3) <> ""
    i = i + 1
Wend
nbLigne = i - 1
 
'Copy de la page Sinistres (données) a la page revalorisation
Sheets("Sinistres").Range("C6:F" & nbLigne).Copy Destination:=Sheets("Revalorisation des sinistres").Range("C6")
Dim TAB_Coef(), TAB_Sinistre(), TAB_Final()
 
Dim DIC_1, DIC_2, DIC_3, DIC_4, DIC_5
 
Dim annee_Cotation As Double
 
annee_Cotation = Worksheets("Sinistres").Range("D4").Value
 
'*********Dictionaire pour tes coefs **********'
Set DIC_1 = CreateObject("Scripting.Dictionary")
Set DIC_2 = CreateObject("Scripting.Dictionary")
Set DIC_3 = CreateObject("Scripting.Dictionary")
Set DIC_4 = CreateObject("Scripting.Dictionary")
Set DIC_5 = CreateObject("Scripting.Dictionary")
 
'*********Capture de tes deux tableaux dans des variables TAB_Coef et TAB_Sinistre **********'
Sheets("Coefficient de revalorisation").Activate
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lc = Cells(7, Columns.Count).End(xlToLeft).Column
    TAB_Coef = .Range(.Cells(7, 3), .Cells(lr, lc)).Value
 
End With
 
Sheets("Sinistres").Select
With ActiveWorkbook.ActiveSheet
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lc = Cells(6, Columns.Count).End(xlToLeft).Column
    ReDim TAB_Final(1 To lr, 1 To lc)
    TAB_Sinistre = .Range(.Cells(6, 4), .Cells(lr, lc)).Value
End With
 
'*********Ajout des coefs avec l'année en clé et le coeficient associé **********'
For i = 1 To UBound(TAB_Coef)
    DIC_1.Add TAB_Coef(i, 1), TAB_Coef(i, 2)
    DIC_2.Add TAB_Coef(i, 1), TAB_Coef(i, 3)
    DIC_3.Add TAB_Coef(i, 1), TAB_Coef(i, 4)
    DIC_4.Add TAB_Coef(i, 1), TAB_Coef(i, 5)
    DIC_5.Add TAB_Coef(i, 1), TAB_Coef(i, 6)
Next i
 
 
'*********Boucle dans ton tableau de sinistre pour multiplier les valeurs en fonction du coeficient **********'
For i = 1 To UBound(TAB_Sinistre, 1)
    For j = 4 To UBound(TAB_Sinistre, 2)
 
        If TAB_Sinistre(i, j) <> "" And TAB_Sinistre(i, 3) = "Réglés" Then
 
            Select Case TAB_Sinistre(i, j)
                Case Is < 1000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(annee_Cotation) / DIC_1(TAB_Sinistre(i, 1))
                Case Is < 2000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_2(annee_Cotation) / DIC_2(TAB_Sinistre(i, 1))
                Case Is < 3000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_3(annee_Cotation) / DIC_3(TAB_Sinistre(i, 1))
                Case Is < 4000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_4(annee_Cotation) / DIC_4(TAB_Sinistre(i, 1))
                Case Else
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_5(annee_Cotation) / DIC_5(TAB_Sinistre(i, 1))
            End Select
 
        ElseIf TAB_Sinistre(i, j) <> "" And TAB_Sinistre(i, 3) = "Suspens" Then
 
            Select Case TAB_Sinistre(i, j)
                Case Is < 1000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_1(annee_Cotation + j - 4) / DIC_1(TAB_Sinistre(i, 1) + j - 4)
                Case Is < 2000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_2(annee_Cotation + j - 4) / DIC_2(TAB_Sinistre(i, 1) + j - 4)
                Case Is < 3000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_3(annee_Cotation + j - 4) / DIC_3(TAB_Sinistre(i, 1) + j - 4)
                Case Is < 4000000
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_4(annee_Cotation + j - 4) / DIC_4(TAB_Sinistre(i, 1) + j - 4)
                Case Else
                        TAB_Sinistre(i, j) = TAB_Sinistre(i, j) * DIC_5(annee_Cotation + j - 4) / DIC_5(TAB_Sinistre(i, 1) + j - 4)
            End Select
 
        ElseIf TAB_Sinistre(i, j) <> "" And TAB_Sinistre(i, 3) = "Total" Then
            TAB_Sinistre(i, j) = TAB_Sinistre(i - 2, j) + TAB_Sinistre(i - 1, j)
        End If
    Next j
Next i
 
'*********Création d'un TAB_Final pour ne Resize que les données modifiées **********
 
 
 
 
 
 
For i = 1 To UBound(TAB_Sinistre, 1)
    For j = 4 To UBound(TAB_Sinistre, 2)
         TAB_Final(i, j - 3) = TAB_Sinistre(i, j)
    Next j
Next i
Sheets("Revalorisation des sinistres").Select
With ActiveWorkbook.ActiveSheet
    .Range(.Cells(6, 7), .Cells(lr, lc)).Value = TAB_Final
 
End With
End Sub

Voici le code final

Merci de votre aide