code pour fermer une msgbox

[amel]

bonjour le forum!
j'aimerais fermer une msgbox soit en cliquant sur le bouton 'annuler' soit en cliquant 'sur la petite croix je ne sais pas trop comment ça se code.. Merci de votre aide

Dim Reponse As String


Reponse = InputBox('Entrez le numero du rapport:') 'affichage de la boite de dialogue

Set maselection = Application.Worksheets('feuil1').cells(3, 2)
maselection.Value = Reponse

If Reponse = Empty Then ' test pour forcer la saisie par l'utilisateur
Reponse = InputBox(' Vous n'avez pas entré de numero! Entrez le numero du rapport:')

Set maselection = Application.Worksheets('feuil1').cells(3, 2)
maselection.Value = Reponse
End If

 

[amel]

re
je vais voir comment les agencer au mieux.. merci de ton aide!!
@+