Sub Calcul()
TMIDF = [R2]: TMAR = [R3]: MIDF = [R4]: MAR = [R5]
Pourcentage 14, TMIDF, TMAR
Pourcentage 15, MIDF, MAR
End Sub
Sub Pourcentage(Colonne, Seuil1, Seuil2)
For L = 2 To Range("A65500").End(xlUp).Row
' Détermination des seuils vs IDF ou non
If Cells(L, 2) = "Oui" Then Seuil = Seuil1 Else Seuil = Seuil2
For C = 4 To 12
If Cells(L, C) > Seuil Then ' Trouver intervalle contenant le seuil
Ind = C: Exit For
End If
Next C
X1 = Cells(L, Ind - 1): X2 = Cells(L, Ind) ' Lecture des valeurs dY et dX
Y2 = (Ind - 3) / 10: Y1 = Y2 - 0.1
a = (Y2 - Y1) / (X2 - X1) ' Calcul des coef de linérisation a et b
b = Y1 - a * X1
Cells(L, Colonne) = a * Seuil + b ' Détermination du % et rangement valeur
Next L
End Sub