Attribute VB_Name = "Module2"
Sub sauvegardePJ()
    Dim MonApp As Outlook.Application
    Dim MonNameSpace As Outlook.NameSpace
    Dim MonDossier As Outlook.Folder
    Dim MonMail As Outlook.MailItem
    Dim numero As Integer
    Dim strAttachment As String
    Dim NbAttachments As Integer
    Dim chemin As String
    Dim MonDossier As Folder
'*************************************************************************************************Instance des objets
    
    Set MonApp = Outlook.Application 'Défini l'application Outlook active
    Set MonNameSpace = MonApp.GetNamespace("MAPI") 'Défini le nom d'utilisateur
'********************* à mon avis c'est la ligne qui suit qui pose problème ****************************
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox) 'Chemin vers la boite de réception princpale
    
    numero = MonDossier.Items.Count 'compte le nombre de nouveau mail et commence par le premier
    Set MonMail = MonDossier.Items(numero)
'chemin de destination des pièces jointes
    chemin = "chemin d'enrgistrement des pj"
    NbAttachments = MonMail.Attachments.Count
    
        If MonMail.Subject = "sujet du mail" Then 'vérifier le sujet du mal

            i = 1
                Do While i <= NbAttachments
                strAttachment = MonMail.Attachments.Item(i).FileName
                MonMail.Attachments.Item(i).SaveAsFile chemin & strAttachment
                i = i + 1
                Loop
        End If
End Sub