Public olApp As Outlook.Application
Sub test()
Dim GNs As Object, Dossier As Object, Item As Object
Dim olSujet As String, msg As String, i As Long, HerrHandler
Application.WindowState = xlMinimized
Set olApp = New Outlook.Application
Set GNs = olApp.GetNamespace("MAPI")
Set Dossier = GNs.Folders("toto@free.fr").Folders("Nom du dossier")
msg = Sheets(1).Range("a2").Text 'Liste déroulante
For i = 1 To Dossier.Items.Count
Set Item = Dossier.Items(i)
'Ici Objet exemple: votre inscription sur notre site
If Item.Subject = msg Then Item.Display 'Oubien Item.To qui correspond à l'adresse de l'expéditeur
Next i
Set GNs = Nothing
Set Dossier = Nothing
Set Item = Nothing
Application.OnTime Now + TimeValue("00:00:10"), "quitter"
End Sub
Sub quitter()
olApp.Quit
Set olApp = Nothing
Application.WindowState = xlNormal
End Sub