Dim olApp As Object, Ns As Object, myInBox As Object
Dim Exp As Object, sel As Object, Itm
Set olApp = CreateObject("Outlook.application")
Set Ns = olApp.GetNamespace("MAPI")
Set Exp = olApp.ActiveExplorer
Set sel = Exp.Selection
'recup info "boite de reception"
Set myInbox = Ns.GetDefaultFolder(olFolderInbox)
'Boucle de récupération de l'objet des messages sélectionnés
For Each Itm In sel
' Itm.Move curFold 'ici par exemple deplacement de ce mail dans le repertoire curFold
GoTo 1000
Next Itm
' Nettoyage des objets
1000 Set Itm = Nothing
Set sel = Nothing
Set Exp = Nothing