Private Sub CommandButton1_Click()
'CreateObject("Wscript.shell").Popup "un bouton est prevu pur cela", 2, "pour fermer!!", vbExclamation
'CreateObject("Wscript.shell").Popup "bonjour", 2, "pour info!!", vbInformation
'CreateObject("Wscript.shell").Popup "un bouton est prevu pur cela !!!", 2, "pour fermer!!", vbCritical
End Sub