Private Sub TextBox5_Change()
Dim Valeur As Byte
TextBox5.MaxLength = 5 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox5)
If Valeur = 2 Or Valeur = 2 Then TextBox5 = TextBox5 & ":" 'afficher ":" aprés la saisie des 2 premiers chiffres
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Valeur = Len(TextBox5)
If Valeur = 3 Or Valeur = 3 Then TextBox5 = TextBox5 & "00"
End Sub