et après bon nombre de tests, je n'ai pas eu de bugs...
Code complet du Sub:
Code:
Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Value, "0.00 €")
TextBox2.Visible = True
If TB = 3 Then
CommandButton5.Visible = True
Else
CommandButton5.Visible = False
End If
End Sub