Public Function Palindrome(ByVal sWord As String) As Boolean
If LCase(sWord) = LCase(StrReverse(sWord)) Then Palindrome = True
End Function
Private Sub Exemple_Utilisation()
MsgBox Palindrome("Laval ' Vrai
MsgBox Palindrome("eluparcettecrapule") ' Vrai
MsgBox Palindrome("1234554321") ' Vrai
MsgBox Palindrome("palindrome") ' Faux
End Sub