Masque de saisie VBA

Bonjour,

Je n'arrive pas à appliquer la formule ci-dessous de masque de saisie pour la saisie d'un numéro de téléphone dans ma userform. Je voudrais que quand on valide sa me reporte le numéro en B2 et quand on ouvre la userform sa me reprenne le numéro de la cellule B2 comme pour la date de création. J'aimerais aussi pouvoir appliquer le masque de saisie pour la date de création tel que quand on saisie des chiffres sa mette directement les slash __/__/____.

Merci d'avance.

Private Sub CmdDel_Click()
If Len(tbTEL) = 0 Then GoTo Saut
If InStr(" ", Right(tbTEL, 1)) > 0 Then tbTEL = Left(tbTEL, Len(tbTEL) - 2): GoTo Saut
If InStr("0123456789", Right(tbTEL, 1)) > 0 Then tbTEL = Left(tbTEL, Len(tbTEL) - 1)
Saut:
tbTEL.SetFocus
End Sub

Private Sub tbTEL_Change()
Dim Texte As String
Texte = tbTEL.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & " "
End Select
tbTEL.Text = Texte
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub tbTEL_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub UserForm_Initialize()
With tbTEL
    .MaxLength = 14
    .Font.Size = 14
    .Value = ""
    .ControlTipText = "Uniquement des chiffres SVP !"
End With
End Sub

Bonjour,

A tester car je ne suis un expert...

Cdlt.

Bonjour,

Quand on commence à mettre le curseur sur la date de création on ne peut pas retourner sur le numéro de téléphone. Et la date de création ne bloque pas le nombre de caractère c'est à dire qu'après 2014 on peut toujours mettre des chiffres et pour effacer sa fonctionne pas.