Bonjour,
Regarde avec ce post, tu devrais trouver la solution
https://forum.excel-pratique.com/excel/recuperer-les-informations-d-un-mail-t30977.html
OU
Tester avec ce module
Sub LitMail()
Set olapp = CreateObject("Outlook.Application")
Set olns = olapp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6)
Sheets("Feuil1").Select 'Nom de la feuille qui reçois l'info
On Error Resume Next
n = 2
For Each i In olxFolder.Items
Cells(n, 1) = i.Subject 'affiche l'objet du mail et le place dans un commentaire
Cells(n, 2).ClearComments 'Efface le Commentaire
Cells(n, 2).AddComment Text:=Replace(i.Body, Chr(13), "")
Cells(n, 2).Comment.Shape.Height = 150
Cells(n, 2).Comment.Shape.Width = 300
Cells(n, 3) = i.SenderName ' Adresse expediteur
Cells(n, 4) = i.CreationTime 'Date & H de la création
n = n + 1
Next
End Sub