Code de Boostrapping methode pour construire Taux zéro coupon

Sub strap()
Dim DerniereLigne As Integer, i As Integer, ii As Integer
Dim Prix As Double, j As Double
Dim v() As Integer, v1() As Double
ThisWorkbook.Sheets("feuil1").Activate
DerniereLigne = Range("P" & Rows.Count).End(xlUp).Row
ReDim v(1 To DerniereLigne)
ReDim v1(1 To DerniereLigne)
For i = 4 To DerniereLigne
 Range("N" & i).FormulaR1C1 = "=PRICE(TODAY(),RC[-2],RC[-3],0.0722,1000,1)" 'pour calculer tous les prix des obligations c'est facile
 If (Round(Range("P" & i))) > 1 Then 'si la maturité est supérieur à une année
 v(i) = Round(Range("P" & i)) ' on sélectionne leurs maturités  et les mettre en maturités entiers
 v1(i) = Range("Q" & i)             'on séléctionne leurs prix calculés pour les utiliser par la suite
 End If
Next i
Dim M() As Variant, m1 As Variant, v2() As Double
ReDim M(1 To DerniereLigne, 1 To DerniereLigne)
ReDim v2(1 To DerniereLigne)
Dim p1 As Integer
Dim maturity As Double
For ii = 1 To DerniereLigne
maturity = v(ii)        'on séléctionne chaque fois la maturité
j = 1
While ((maturity - j) > 0)
M(j, j) = (1000 * (1 + v1(ii)))  'construire la matrice dans l'exemple de la capture écran
M(ii, maturity - j) = v1(ii)      'construire la matrice dans l'exemple de la capture écran
j = j + 1
Wend
Next ii
m1 = Application.MInverse(M)  'pour résoudre le système matricielle
ReDim m1(1 To DerniereLigne, 1 To DerniereLigne)
For p1 = 1 To DerniereLigne
For j = 1 To DerniereLigne
v2(p1) = m1(p1, j) * v1(j)  ' le tableau  v2 contient les éléments de taux zéro coupon comme il est définit par le capture écran
Next j
Next p1
Range("S" & 6) = m1(5, 5)  ' je décide d'afficher la composante de la matrice mais rien n'est affiché
end sub