Dim pos&
Private Sub CommandButton1_Click()
texte = TextBox1
a_inserer = "Toto"
If pos = 0 Then
TextBox1 = a_inserer
Else
TextBox1 = Mid(texte, 1, pos) & a_inserer & Mid(texte, pos + 1, Len(texte))
End If
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
pos = TextBox1.SelStart
End Sub