Private Sub TextBox1_Change()
Dim prefixe$
prefixe = "ODM-" 'ca c'est ton préfixe qui ne doit pas bouger
With TextBox1
.MaxLength = 9' la longueur max de la chaîne dans le textbox
'si le textbox ne commence pas par le préfixe (et quelque chose ou rien)alors = prefixe
if Not .Value Like prefixe & "*" Then .Value = prefixe
If Not IsNumeric(Mid(.Value, Len(prefixe) + 1)) Then .Value = prefixe
'si la partie après le préfixe est non numérique alors textbox=prefixe
End With
End Sub