Chaine = "eluparcettecrapule"
For i = 1 To Len(Left(chaine,Len(Chaine)/2)) Step 1
If Mid(Left(chaine,Len(Chaine)/2), i,1) <> Left(Mid(Right(Right(chaine,Len(Chaine)/2),i),1),1) Then
MsgBox Chaine & " n'est pas un palindrome"
Exit For
Else
If i = Len(Left(chaine,Len(Chaine)/2)) Then MsgBox Chaine & " est un palindrome"
End if
Next