Private Function ReverseStr(sChaine As String) As String
Dim i As Integer
ReverseStr = vbNullString
For i = Len(sChaine) To 1 Step -1
ReverseStr = ReverseStr & Mid$(sChaine, i, 1)
Next i
End Function
'
'à noter que cette fonction existe déjà dans VB :
ReverseStr = StrReverse(sChaine)