Sub LireMessagerie()
On Error Resume Next
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxfolder = olns.GetDefaultFolder(6).Folders("test") ' boite de reception // sous dossier test
Sheets("Lire_mail").Select ' feuille dans laquelle on veut les données
On Error Resume Next
N = 1
For Each I In olxfolder.Items
If I.SenderName = "XXXXXXXXXX@XXXXXX.info" Then ' l'adresse mél pour filtrer
Cells(N, 1).ClearComments
Cells(N, 1) = I.SenderName
Cells(N, 2).ClearComments
Cells(N, 2) = I.Body
Cells(N, 3).ClearComments
Cells(N, 3) = I.CreationTime
N = N + 1
End If ' nouveau
Next
End Sub