Sub traduire()
Set dico = CreateObject("Scripting.dictionary")
For n = 2 To 27
x = Range("A" & n)
dico(x) = Range("C" & n)
Next
atraduire = Range("G2")
For n = 1 To Len(atraduire)
If UCase(Mid(atraduire, n, 1)) <> " " Then
trad = trad & dico(UCase(Mid(atraduire, n, 1)))
Else
trad = trad & " "
End If
Next
Range("G3") = trad
End Sub