Public d As Object 'mémorise la variable
Function ConversionVoyelles(t$)
Dim i%
If d Is Nothing Then
Set d = CreateObject("Scripting.Dictionary")
d("a") = 1: d("e") = 5: d("i") = 9: d("o") = 6: d("u") = 3: d("y") = 7
End If
t = LCase(t) 'minuscules
For i = 1 To Len(t)
ConversionVoyelles = ConversionVoyelles + d(Mid(t, i, 1))
Next
End Function
Sub Test()
Dim x$
x = InputBox("Entrez le texte à convertir :", "Conversion voyelles")
If x <> "" Then MsgBox ConversionVoyelles(x), , "Résultat"
End Sub