Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = IIf(TextBox1 <> "" And TextBox2 <> "", "Merci", "")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = IIf(TextBox1 <> "" And TextBox2 <> "", "Merci", "")
End Sub