Macro Outlook Executer règle

Bonjour,

Je cherche à écrire une macro qui executerait une règle précise dans le dossier "Courrier Indésirable" de tous mes comptes connectés sur outlook.

Pour le moment j'ai ça, mais parfois il semble que ca ne fonctionne que sur 1 des 2 comptes connectés :

For Each oAccount In Outlook.Application.Session.Accounts

        ' get default store (where rules live)
        Set st = Application.Session.DefaultStore
        ' get rules
        Set myRules = st.GetRules
        ' get Junk e-mail folder
        Set fldJunk = st.GetDefaultFolder(olFolderJunk)

        ' iterate all the rules
        For Each rl In myRules
            If rl.Name = "Junk Cleaner" Then
                rl.Execute ShowProgress:=True, Folder:=fldJunk
                ruleList = ruleList & vbCrLf & rl.Name
            End If
        Next

Next

J'ai l'impression que même si je fais une boucle "pour chaque compte", je ne suis pas sûr que le corps de la boucle prenne le changement de compte en considération..

Merci d'avance ! :)

Up ! ;)