Merci
par contre le programme ne marche pas j'ai rentré le programme suivant :
Private Sub CommandButton1_Click()
Dim leMot As String
leMot = TextBox1.Value
If leMot = StrReverse(leMot) Then
MsgBox "Il s'agit d'un palindrome"
Else
MsgBox "Il ne s'agit pas d'un palindrome"
End If
End Sub

Il me met erreur d'execution '424'
et me surligne en jeune "leMot = TextBox1.Value"
Comment ça se fait ?