Private Sub ComboBox3_Change()
If ComboBox3 = "" Then Exit Sub
mot = "0000"
valeurAdditionee = Mid(TextBox3, 1, InStr(TextBox3, "T") - 1)
reste = Mid(TextBox3, InStr(TextBox3, "T"))
valeurAdditionee = valeurAdditionee + 1
TextBox4 = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste