Private Sub TextBox32_Change()
Select Case Len(TextBox32.Text)
Case 2, 5, 8, 11
TextBox32.Text = TextBox32.Text & ' '
End Select
End Sub
Private Sub TextBox32_AfterUpdate()
If TextBox32.Value <> '' Then
Recherche_téléphone
Répertoire.ListBox2.ListIndex = -1
Répertoire.CommandButton6.SetFocus
End If
End Sub