msgbox "Nous sommes le " & date & chr(10) & _
	"Il est " & hour(now) & _
	"h et " & minute(now) & "min"