Programmation VBA majuscule

Bonjour,
Je ne suis pas très douée en programmation vba mais j'ai plus ou moins réussi à avoir ce que je voulais. J'ai réussi à convertir les chiffres monétaire en lettres, seulement tout se met en majuscule sauf "centimes" et il ne me met pas le "ET" entre les euros et les centimes. Pour être plus claire je vous donne un exemple.

actuellement dans mon fichier 32,56€ = TRENTE DEUX EUROS CINQUANTE SIX centimes
le résultat que j'aimerai avoir = TRENTE DEUX EUROS ET CINQUANTE SIX CENTIMES

Voici la fonction

Function chiffrelettre(s)
    Dim a As Variant, gros As Variant
    a = Array("", "UN", "DEUX", "TROIS", "QUATRE", "CINQ", "SIX", "SEPT", _
              "HUIT", "NEUF", "DIX", "ONZE", "DOUZE", "TREIZE", "QUATORZE", "QUINZE", "SEIZE", "DIX SEPT", _
              "DIX HUIT", "DIX NEUF", "VINGT", "VINGT ET UN", "VINGT DEUX", "VINGT TROIS", "VINGT QUATRE", _
              "VINGT CINQ", "VINGT SIX", "VINGT SEPT", "VINGT HUIT", "VINGT NEUF", "TRENTE", "TRENTE ET UN", _
              "TRENTE DEUX", "TRENTE TROIS", "TRENTE QUATRE", "TRENTE CINQ", "TRENTE SIX", "TRENTE SEPT", _
              "TRENTE HUIT", "TRENTE NEUF", "QUARANTE", "QUARANTE ET UN", "QUARANTE DEUX", "QUARANTE TROIS", _
              "QUARANTE QUATRE", "QUARANTE CINQ", "QUARANTE SIX", "QUARANTE SEPT", "QUARANTE HUIT", _
              "QUARANTE NEUF", "CINQUANTE", "CINQUANTE ET UN", "CINQUANTE DEUX", "CINQUANTE TROIS", _
              "CINQUANTE QUATRE", "CINQUANTE CINQ", "CINQUANTE SIX", "CINQUANTE SEPT", "CINQUANTE HUIT", _
              "CINQUANTE NEUF", "SOIXANTE", "SOIXANTE ET UN", "SOIXANTE DEUX", "SOIXANTE TROIS", _
              "SOIXANTE QUATRE", "SOIXANTE CINQ", "SOIXANTE SIX", "SOIXANTE SEPT", "SOIXANTE HUIT", _
              "SOIXANTE NEUF", "SOIXANTE DIX", "SEPTANTE", "SEPTANTE ET UN", "SEPTENTE DEUX", _
              "SEPTENTE QUATRE", "SEPTANTE CINQ", "SEPTANTE SIX", "SEPTANTE SEPT", _
              "SEPTANTE HUIT", "SEPTANTE NEUF", "QUATRE-VINGTS", "QUATRE-VINGT UN", _
              "QUATRE-VINGT DEUX", "QUATRE-VINGT TROIS", "QUATRE-VINGT QUATRE", "QUATRE-VINGT CINQ", _
              "QUATRE-VINGT SIX", "QUATRE-VINGT SEPT", "QUATRE-VINGT HUIT", "QUATRE-VINGT NEUF", _
              "NONANTE", "NONANTE ET UN", "NONANTE DEUX", "NONANTE TROIS", _
              "NONANTE QUATRE", "NONANTE CINQ", "NONANTE SIX", "NONANTE SEPT", _
              "NONANTE HUIT", "NONANTE NEUF")
              
    gros = Array("", "billions", "milliards", "millions", "mille", "EUROS", "billion", _
                 "milliard", "million", "mille", "Euro")
    sp = Space(1)
    chaine = "00000000000000"
    centime = s * 100 - (Int(s) * 100)
    s = Str(Int(s)): lg = Len(s) - 1: s = Right(s, lg): lg = Len(s)
    If lg < 15 Then chaine = Mid(chaine, 1, (15 - lg)) Else chaine = ""
    s = chaine + s
    'billions au centaines
    gp = 1
    For k = 1 To 5
        x = Mid(s, gp, 1): c = a(Val(x))
        x = Mid(s, gp + 1, 2): d = a(Val(x))
        If k = 5 Then
            If t2 <> "" And c & d = "" Then mydz = "Euros" & sp: GoTo fin
            If t <> "" And c = "" And d = "un" Then mydz = "un Euros" & sp: GoTo fin
            If t <> "" And t2 = "" And c & d = "" Then mydz = "d'Euros" & sp: GoTo fin
            If t & c & d = "" Then myct = "": mydz = "": GoTo fin
        End If
        If c & d = "" Then GoTo fin
        If d = "" And c <> "" And c <> "un" Then mydz = c & sp & "cents " & gros(k) & sp: GoTo fin
        If d = "" And c = "un" Then mydz = "CENT " & gros(k) & sp: GoTo fin
        If d = "un" And c = "" Then myct = IIf(k = 4, gros(k) & sp, "un " & gros(k + 5) & sp): GoTo fin
        If d <> "" And c = "un" Then mydz = "cent" & sp
        If d <> "" And c <> "" And c <> "un" Then mydz = c & sp & "cent" + sp
        myct = d & sp & gros(k) & sp
fin:
        t2 = mydz & myct
        t = t & mydz & myct
        mydz = "": myct = ""
        gp = gp + 3
    Next
    d = a(centime)
    If t <> "" Then myct = IIf(centime = 1, " centime", " centimes")
    If t = "" Then myct = IIf(centime = 1, " centime d'Euro", " centimes d 'Euro")
    If centime = 0 Then d = "": myct = ""
    chiffrelettre = t & d & myct
End Function

Merci d'avance à ceux qui prendront le temps de m'aider.