Sub outLook()
Dim X As Object
On Error Resume Next
Set X = GetObject(, "Outlook.application")
If Err.Number = 0 Then
MsgBox "Outlook est déjà ouvert"
Else
MsgBox "Outlook non lancé"
'Shell ("C:\Programme\Microsoft Office\OUTLOOK.EXE")
End If
End Sub