Sub test()
Dim MaString, Tablo, I As Integer, J As Integer
Début:
MaString = InputBox("Phrase à traduire ?", "VerLan Matix")
Tablo = Split(MaString, " ")
For I = LBound(Tablo) To UBound(Tablo)
Tablo(I) = LCase(StrReverse(Tablo(I)))
Next I
J = MsgBox(Join(Tablo, " "), vbRetryCancel, "Résultat")
If J = vbRetry Then GoTo Début
End Sub