Bonsoir Stéphane,
Pour faire ce que tu souhaites, il suffit de coder les deux instructions qui suivent dans l'évènement "UserForm_Initialize" de ton UserForm
====================================================
Private Sub UserForm_Initialize()
TextBox1 = Replace(Range("A3"), "-", "") + 1
TextBox1 = Left(TextBox1, 4) & "-" & Right(TextBox1, Len(TextBox1) - 4)
End Sub
====================================================
@ Plus
Omicron.