Conversion des chiffres en lettre en VB

salut ...je suis un algerien de mascara...j'aime l'aacess c mon Oxigen alors voila le code de la convertion de chiffre en lettre

Public Function valeur_lettres(somme As Currency, monnaie As String)
On Error GoTo err_valeur_lettres
If somme = 0 Then
valeur_lettres = ""
Exit Function
End If
Dim val_tmp As Single
Dim millier As Integer, centaine As Integer, dizaine As Integer, unité As Integer, centimes As Currency
Dim strmillier As String, strcentaine As String, strdizaine As String, strunité As String
val_tmp = somme
'dizaine = somme * 100
'unité = Int(somme) * 100
'centimes = dizaine - unité
centimes = Int(somme * 100 - (Int(somme) * 100))

millier = Int(somme / 1000)
val_tmp = somme - 1000 * millier
centaine = Int(val_tmp / 100)
val_tmp = val_tmp - 100 * centaine
dizaine = Int(val_tmp / 10)
val_tmp = val_tmp - 10 * dizaine
unité = Int(val_tmp)
Dim X As Integer, y As Integer

Select Case millier
Case 0: strmillier = ""
Case 1: strmillier = " mille "
Case 2: strmillier = "deux mille "
Case 3: strmillier = "trois mille "
Case 4: strmillier = "quatre mille "
Case 5: strmillier = "cinq mille "
Case 6: strmillier = "six mille "
Case 7: strmillier = "sept mille "
Case 8: strmillier = "huit mille "
Case 9: strmillier = "neuf mille "
End Select
Select Case centaine
Case 0: strcentaine = ""
Case 1: strcentaine = " cent "
Case 2: strcentaine = "deux cent "
Case 3: strcentaine = "trois cent "
Case 4: strcentaine = "quatre cent "
Case 5: strcentaine = "cinq cent "
Case 6: strcentaine = "six cent "
Case 7: strcentaine = "sept cent "
Case 8: strcentaine = "huit cent "
Case 9: strcentaine = "neuf cent "
End Select
Select Case dizaine
Case 1:
Select Case unité
Case 1: valeur_lettres = "onze"
Case 2: valeur_lettres = "douze"
Case 3: valeur_lettres = "treize"
Case 4: valeur_lettres = "quatorze"
Case 5: valeur_lettres = "quinze"
Case 6: valeur_lettres = "seize"
Case Else:
strdizaine = "dix"
Select Case unité
Case 7: strunité = " sept"
Case 8: strunité = " huit"
Case 9: strunité = " neuf"
End Select
End Select
Case 7:
Select Case unité
Case 0: strdizaine = "soixante dix"
Case Else: strdizaine = "soixante"
Select Case unité
Case 1: strunité = " et onze"
Case 2: strunité = " douze"
Case 3: strunité = " treize"
Case 4: strunité = " quatorze"
Case 5: strunité = " quinze"
Case 6: strunité = " seize"
Case 7: strunité = " dix sept"
Case 8: strunité = " dix huit"
Case 9: strunité = " dix neuf"
End Select
End Select
Case 9:
Select Case unité
Case 0: strdizaine = "quatre vingt dix"
Case Else: strdizaine = "quatre vingt"
Select Case unité
Case 1: strunité = " onze"
Case 2: strunité = " douze"
Case 3: strunité = " treize"
Case 4: strunité = " quatorze"
Case 5: strunité = " quinze"
Case 6: strunité = " seize"
Case 7: strunité = " dix sept"
Case 8: strunité = " dix huit"
Case 9: strunité = " dix neuf"
End Select
End Select
Case Else:
Select Case unité
Case 1: strunité = " et un"
Case 2: strunité = " deux"
Case 3: strunité = " trois"
Case 4: strunité = " quatre"
Case 5: strunité = " cinq"
Case 6: strunité = " six"
Case 7: strunité = " sept"
Case 8: strunité = " huit"
Case 9: strunité = " neuf"
End Select
Select Case dizaine
Case 2: strdizaine = "vingt"
Case 3: strdizaine = "trente"
Case 4: strdizaine = "quarante"
Case 5: strdizaine = "cinquante"
Case 6: strdizaine = "soixante"
Case 8: strdizaine = "quatre vingt"
End Select
End Select

valeur_lettres = IIf(valeur_lettres <> "", valeur_lettres, strmillier & strcentaine & strdizaine & strunité) & IIf(monnaie = "euro", " euros ", "") & IIf(centimes = 0, "", valeur_lettres(centimes, "cent") & IIf(centimes = 1, " centime", " centimes"))
exit_valeur_lettres:
Exit Function
err_valeur_lettres:
MsgBox Err.Description
Resume exit_valeur_lettres
End Function

un cadeau de ma part..........bye