Attribute VB_Name = "Module2"
Private Sub Application_NewMail()
    Call Module1.sauvegardePJ 'cette macro lance automatiquement la macro sauvegarderPJ ŕ la réception d'un nouveau mail
End Sub