Sub PhraseALenvers()

	Dim Phrase As String
	Dim PhraseEnvers As String
	Phrase = "Tu l'as trop écrasé, César, ce port-salut"
	For compteur = Len(Phrase) To 1 Step -1
		PhraseEnvers = PhraseEnvers & Mid(Phrase, compteur, 1)
	Next
	MsgBox PhraseEnvers

End Sub