Fonction LET pour Excel 2013

Bonjour à tous,

Dans le but d'avoir une fonction LET pour mon Excel 2013 j'ai consulté l'IA Gemini qui m'a concocté ce code

Function LET_2013(ParamArray args() As Variant) As Variant
    ‘Exemple de fonction : =LET_2013("x"; A1*2; "y"; B1+5; "x + y")
    Dim i As Long
    Dim numArgs As Long
    Dim varName As String
    Dim varVal As Variant
    Dim expr As String
    
    numArgs = UBound(args) - LBound(args) + 1
    
    If numArgs < 3 Or (numArgs Mod 2 = 0) Then
        LET_2013 = CVErr(xlErrValue)
        Exit Function
    End If
    
    expr = CStr(args(UBound(args)))
    
    For i = LBound(args) To UBound(args) - 1 Step 2
        varName = CStr(args(i))
        varVal = args(i + 1)
        
        If IsError(varVal) Then
            LET_2013 = varVal
            Exit Function
        ElseIf TypeName(varVal) = "String" Then
            varVal = """" & Replace(varVal, """", """""") & """"
        ElseIf TypeName(varVal) = "Date" Then
            varVal = CDbl(varVal)
        ElseIf TypeName(varVal) = "Boolean" Then
            varVal = IIf(varVal, "TRUE", "FALSE")
        End If
        
        expr = Replace(expr, varName, CStr(varVal))
    Next i
    
    LET_2013 = Application.Evaluate(expr)
End Function

Puis j'ai ajouté des arguments de la fonction en consultant d'anciennes fonctions ajoutées à mon Excel

Sub DescriptionFonction()
    ‘Déclaration des variables
    Dim NomFonction As String
    Dim DescriptionFonction As String	
    Dim ArgumentDesc (1 To 9) As String
    
    ‘Affectation des variables
    NomFonction ="LET_2013"
    DescriptionFonction ="La fonction LET_2013 attribue des noms aux résultats des calculs. Elle permet de stocker des calculs intermédiaires, des valeurs ou de définir des noms à l’intérieur d’une formule. Ces noms ne s’appliquent que dans le cadre de la fonction."
    ' Descriptions des 9 premiers arguments visibles dans la fenêtre fx
    ArgumentDesc (1) = "Nom de la variable 1 (entre guillemets, ex: "x")."
    ArgumentDesc (2) = "Valeur ou formule attribuée à la variable 1."
    ArgumentDesc (3) = "Nom de la variable 2 (optionnel) ou calcul final utilisant la variable définie (entre guillemets)."
    ArgumentDesc (4) = "Valeur ou formule attribuée à la variable 2."
    ArgumentDesc (5) = "Nom de la variable 3 (optionnel) ou calcul final utilisant les variables définies (entre guillemets)."
    ArgumentDesc (6) = "Valeur ou formule attribuée à la variable 3."
    ArgumentDesc (7) = "Nom de la variable 4 (optionnel) ou calcul final utilisant les variables définies (entre guillemets)."
    ArgumentDesc (8) = "Valeur ou formule attribuée à la variable 4."

    ArgumentDesc (9) = "Calcul final utilisant les variables définies (entre guillemets)."

'Insertion de la fonction dans la bibliothèque des fonctions d'Excel
    Application.MacroOptions _
    Macro:=NomFonction, _
    Description:=DescriptionFonction, _
    ArgumentDescriptions:=ArgumentDesc

End Sub

Mesdames/Messieurs les cadors du code VBA j'aimerai savoir s'il y a des rectifications à apporter.

Je vous remercie par avance.

Cordialement

Windows / Chrome 152.0.0.0