Comment dire que la lettre vaut un chiffre

Tu dois faire un dictionnaire qui est une association clé:valeur comme ça : https://excelmacromastery.com/vba-dictionary/

Les exemples sont clairs et simples, à toi d'adapter.

Je n'ai pas Excel mais LibreOffice Calc, il y a quelques différences, mais, je viens de créer une macro simple. D'abord, je mets les lettres de l'alphabet une à une dans une liste. Ensuite, je crée un input, c'est-à-dire une donnée à taper au clavier, pour assigner une valeur à chaque lettre. J'ai un mot test pour vérifier que le résultat est correct. Le code n'est pas parfait, par exemple, j'ai volontairement rien tapé à chaque input, comme rien n'est pas de type nombre entier ça a sorti une erreur. Voici le code, non commenté car suffisamment explicite :

Option VBASupport 1

Function additionner_lettres(mot as string, dico_equivalence as Scripting.Dictionary)
    compteur = 0
    taille = len(mot)
    for i = 1 to taille
        compteur = compteur + dico_equivalence(mid(mot, i, 1))
    next i
    additionner_lettres = compteur
End Function

Sub Main
 dim liste_pour_remplissage_nombre(25) as String
    dim dico_equivalence_lettre_chiffre as New Collection
    
    dim phrase as string
    dim mot_test as string
    mot_test = "abba"
    dim resultat as integer

    for i = 0 to UBound(liste_pour_remplissage_nombre)
        liste_pour_remplissage_nombre(i) = Chr(65+i)
    Next i
 
    for i = 0 to UBound(liste_pour_remplissage_nombre)
        phrase = "Tape la valeur équivalente à " & liste_pour_remplissage_nombre(i)
        temporaire = inputbox(phrase)
        dico_equivalence_lettre_chiffre.add(temporaire, liste_pour_remplissage_nombre(i))
    next i

    resultat = additionner_lettres(mot_test, dico_equivalence_lettre_chiffre)
    msgbox resultat
End Sub