inverse le nom ou la phrase de A1 ----> dans la cellule active.
Sub inverse()
Dim Nc As String
Dim Tp As String
Dim i As Byte
Nc = Len(Range("a1"))
Tp = Range("a1")
ActiveCell.ClearContents
For i = 1 To Nc
Tp = Left(Tp, Nc)
ActiveCell = ActiveCell & Right(Tp, 1)
Nc = Nc - 1
Next i
End Sub
Bonne journée
Claude.
édit: on peut mettre Dim i As Long (si longue phrase)