Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Replace(TextBox2, ".", ",")) Then
MsgBox "Vous devez saisir un nombre"
Cancel = True
TextBox2 = ""
TextBox2.SetFocus
Else
TextBox3 = TextBox1 * Replace(TextBox2, ".", ",")
TextBox2 = TextBox2 & "%"
End If
End Sub