Decryptage mdp sous vba

Salut.
Je suis en train de programmer un logiciel en vba, et dedans, j'aimerais y ajouter un module de cryptage/decryptage de mot de passe. Jai trouver le code pour le cryptage mais ne voit pas comment retourner l'operation pour effectuer le decryptage...
voici le code :

Public Function Crypter() As String

Dim slettres As String
Dim lcompteur As Long
Dim llongueur As Long
Dim lboucle As Long

Const CLEF As String = "nbvfdszé'(-e`_ijhgfcKLKjhgyuilM^+)açiu-('32azsDRtvBhujkoç_e6trezsXWqazerfcx<;:<?"
Const nbrotationsmax As Long = 13
Dim entree As String
entree = InputBox("Entree une chaine")

llongueur = Len(entree)
slettres = String(llongueur, Chr(0))

For lboucle = 1 To nbrotationsmax
For lcompteur = 1 To llongueur
Mid(slettres, lcompteur, 1) = Chr((Asc(Mid(entree, lcompteur, 1)) + _
(Asc(Mid(CLEF, (lcompteur Mod Len(CLEF)) + 1, 1)) * llongueur)) Mod 256)
Next
entree = slettres
Next
Crypter = slettres

End Function

Quelqu'un pourrait m'aider a comprendre la partie en gras pour pouvoir l'inverser ?

Merci