Mathématiques financières avec VBA Excel (Stephane Hamard)

Bonjour à tous voilà je me présente Alexandre,

J'ai acheté y a maintenant 1 mois le Livre de Stéphane Hamard pour me faire une bibliothèque de fonction pour des produits de taux et viens vous demander conseil car je ne comprends pas que le coeur du code ne fonctionne pas (pourtant tout recopier comme sur le bouquin) j'ai un problème "valeur"sur la feuille , un autre problème erreur "type arguments by Ref non valide"dans le code, en ce qui concerne "TypeCouponBrise", quand je lance mes fonction, dans le cas présent "TxRendementTF.
Serait-ce la puissance de calcul de mon ordinateur qui laisse à désirer?
Sinon Ci-joint le code:
Amélioration de l'interface ça marche

Option Explicit
Sub Description_TauxRendementTF()
Dim NomFonction As String
Dim DescriptionFonction As String
Dim Categorie As String
Dim DescriptionArguments(1 To 11) As String

NomFonction = "TauxRendementTF"
DescriptionFonction = "Determine le taux de rendement d'un instrument à taux fixe"
Categorie = 1
DescriptionArguments(1) = "Date de Calcul"
DescriptionArguments(2) = "Date de Maturite"
DescriptionArguments(3) = "Prix Pied Coupon de l'instrument"
DescriptionArguments(4) = "Coupon de l'instrument en %"
DescriptionArguments(5) = "Frequence"
DescriptionArguments(6) = "Base de calcul: Exact/Exact 1, Exact/365 2," & "Exact/360 3, 30/360 4"
DescriptionArguments(7) = "Valeur de Remboursement"
DescriptionArguments(8) = "(Optionnel) Mode Ajustement: Following 1," & "Mod.Foll.2,Preceding3," & "Mod. Prec. 4"
DescriptionArguments(9) = "(Optionnel) PremierCouponPlein : Vrai 1, Faux 0"
DescriptionArguments(10) = "(Optionnel) TypeCouponBrise :" & "Court début 1, Long début 2," & " Court fin 3, Long fin 4"
DescriptionArguments(11) = " DateDeDepart de l'instrument, obligatoire si le " & "TypeCouponBrise est renseigné"

Application.MacroOptions _
    Macro:=NomFonction, _
    Description:=DescriptionFonction, _
    Category:=Categorie, _
    ArgumentDescriptions:=DescriptionArguments
End Sub

Fonction à Lancer via interface

Function TauxRendementTF(DateDeCalcul As Date, DateDeMaturite As Date, dblPrixPied As Double, dblCoupon As Double, iFrequence As Integer, Base As Variant, dblValeurRemboursement As Double, Optional ModeAjustement As Variant = 0, Optional bPremierCouponPlein As Boolean = False, Optional TypeCouponBrise As Variant = 0, Optional DateDeDepart As Date = 0)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Determination du taux de rendement d'un instrument taux fixe'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim TabFlux
Dim dblTabFrac() As Double
Dim dblTaux As Double
Dim dblPrixPlein As Double
Dim dblCC As Double
Dim dblF As Double
Dim dblFPrime As Double
Dim iFreq As Integer
Dim i As Integer
Dim j As Integer

    dblCC = CouponCouruTF(DateDeCalcul, DateDeMaturite, dblCoupon, iFrequence, Base, dblValeurRemboursement, ModeAjustement, bPremierCouponPlein, TypeCouponBrise, DateDeDepart)
    dblPrixPlein = dblPrixPied + dblCC
    
TabFlux = FluxTF(DateDeCalcul, DateDeMaturite, dblCoupon, iFrequence, Base, dblValeurRemboursement, ModeAjustement, bPremierCouponPlein, TypeCouponBrise, DateDeDepart)
    
    If iFrequence = 0 Then
        iFreq = 1
    Else
        iFreq = iFrequence
    End If
    ReDim dblTabFrac(UBound(TabFlux, 2))
        For i = 1 To UBound(TabFlux, 2)
        dblTabFrac(i) = FractionAnnee(DateDeCalcul, (TabFlux(1, i)), Base) * iFreq
        Next
        
    dblTaux = 0.05
        For i = 1 To 100
        dblF = -dblPrixPlein
        dblFPrime = 0
            For j = 1 To UBound(TabFlux, 2)
            dblF = dblF + TabFlux(2, j) / ((1 + dblTaux / iFreq) ^ dblTabFrac(j))
            dblFPrime = dblFPrime - (dblTabFrac(j) * TabFlux(2, j)) / ((1 + dblTaux / iFreq) ^ (dblTabFrac(j) + 1))
            Next
        dblTaux = dblTaux - dblF / (dblFPrime / iFreq)
        Next
TauxRendementTF = dblTaux
End Function

Et j'ai ce problème des que je lance une fonction. En vous remerciant par avance de l'intérêt que vous porterez à ma requête et pour votre aide précieuse.

Cordialement