Private Sub ComboBox1_Change()
Dim i As Long, nom As String
nom = "Jean grange les sous"
TextBox1.Value = ""
TextBox1.SetFocus
For i = 1 To Lenb(nom)
TextBox1.Value = TextBox1.Value & Mid(nom, i, 1)
Application.Wait Time + TimeSerial(0, 0, 1)
Me.Repaint
Next i
End Sub