Sub Bouton1_QuandClic()
Dim nom As String
Dim age
nom = Application.InputBox('quel est votre nom ?', Type:=2)
If nom = 'Faux' Then Exit Sub
Do
age = Application.InputBox('quel est votre age, ' & nom & ' ?', Type:=1)
If age = 'Faux' Then Exit Sub
Loop Until age > 0 And age < 140
MsgBox nom & ', vous etes né(e) en : ' & Year(Date) - age
End Sub