Function MAVAL(ByVal Texte As String) As String
Dim T1() As Variant, T2() As Variant, TSpl() As String, Z As String, N As Long, X As Variant
T1 = Array("F910KY", "F910LIB", "F910CHEMIN", "F910TXT", "T910910MED", "T910910NAT", "K910TD4NATMEMO", "F910RICHE", "F910DTOPE")
T2 = Array("Clé unique F910", "libelle libre", "Chemin", "le memo", "média", "Nature", "Code nature de mémo", "Texte riche", "Date de saisie")
TSpl = Split(Texte, " ")
Z = ""
For N = 0 To UBound(TSpl)
X = Application.Match(TSpl(N), T1, 0)
If IsError(X) Then Z = Z & " " & TSpl(N) Else Z = Z & " " & T2(X - 1)
Next N
MAVAL = Mid$(Z, 2)
End Function