Dans votre fichier, essayez ceci
1. Code ouverture USF
Private Sub UserForm_Initialize()
T33.Enabled = False
T1.Enabled = False
T20.Enabled = False
End Sub
2. Code pour la textbox T19
Private Sub T19_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'n° siret
Dim Siret As Long
If Len(T19) <> 14 Then MsgBox "Le numéro doit comporter 14 caractères !": T19 = "": Exit Sub
T19 = Format(T19, "@@@ @@@ @@@ @@@@@")
T33 = Left(T19, 3) & Mid(T19, 5, 3) & Mid(T19, 9, 3)
T33 = Format(T33, "@@@ @@@ @@@")
On Error Resume Next
Siret = Left(T19, 3) & Mid(T19, 5, 3) & Mid(T19, 9, 3)
T1 = 12 + 3 * (Siret Mod 97) Mod 97
T20 = "FR" & T1 & " " & Left(T19, 11)
End Sub
faites un test et si ok
Cordialement