Private Sub TextBox10_Change()
Dim Texte4 As String
If TextBox1.Value = 'TENP' Then Exit Sub
Texte4 = TextBox10.Text
Select Case Len(Texte4)
Case 5
Texte4 = Left(Texte4, 4) & '.' & Mid(Texte4, 5, Len(Texte4) - 4)
Case 7
Texte4 = Texte4 & '.'
End Select
TextBox10.Text = Texte4
End Sub