Sub ObjetMail()
Dim Exp As Explorer
Dim Sel As Selection
Dim Itm As MailItem
Dim Actuel as string
'Définition objet
Set Exp = ActiveExplorer
Set Sel = Exp.Selection
'Boucle de récupération de l'objet des messages sélectionnés
For Each Itm In Sel
Actuel = Itm.Subject
Next Itm
' Nettoyage des objets
Set Itm = Nothing
Set Sel = Nothing
Set Exp = Nothing
End Sub