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