Sub lance_Outlook()
'MJ
Shell ("C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"), vbMaximizedFocus
attente = 5: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente: waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
Application.SendKeys ("^n"), True
End Sub