Private Sub UserForm_Initialize()
Me.TextBox2.Text = UserForm1.TextBox1.Text
End Sub
Private Sub Validation_Click()
If TextBox1 > 0 Then
TextBox2 = Val(TextBox2) + Val(TextBox1)
End If
TextBox1 = ""
End Sub
Private Sub CommandButton1_Click()
Me.Hide ' Le ferme sans le décharger
End Sub