'on redonne le focus au textbox1
TextBox1.SetFocus
'on prépare le textbox1 pour la correction
TextBox1.SelStart = 0
TextBox1.SelLength = Len(Me.TextBox1)
Private Sub Lettre_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Lettre.SelStart = 0
Lettre.SelLength = Len(Lettre)
End Sub