Sub ExécuterToutesLesRègles()
Dim objOutlook As Outlook.Application
Dim Banque As Store
Dim LesBanques As Stores
Dim Règle As Rule
Dim LesRègles As Rules
Set objOutlook = Outlook.Application
' Renvoie un objet de collection Stores qui représente tous les objets Store du profil actif. En lecture seule.
Set LesBanques = objOutlook.Session.Stores
' identifier les conditions, les exceptions et les actions utilisées
For Each Banque In LesBanques
    On Error GoTo Suite1
  'On Error GoTo 0
  Set LesRègles = Banque.GetRules
  For Each Règle In LesRègles
    On Error Resume Next
    Règle.Execute
  Next Règle
GoTo Boucle1
Suite1:
  'Debug.Print "La banque " & Banque.DisplayName & " ne supporte pas les règles"
  Resume Boucle1
Boucle1:
Next Banque
End Sub