salut JMG
j'ai trouvé la solution il manquait un ",1"
après Shell "C:\Program Files\Outlook Express\msimn.exe"
*****************************
Sub Mail()
'consulter mes message depuis Outlook
On Error GoTo PasTrouve
Reponse = MsgBox("...Envoyez directement vos commentaires à l'auteur...", vbYesNo, "N'hésitez pas...")
If Reponse = vbYes Then
Shell "C:\Program Files\Outlook Express\msimn.exe" ,1
End If
Exit Sub
PasTrouve:
MsgBox "Ne trouve pas Outloock...aucun message envoyé..."
End Sub
******************************
a+