Re
Essaie en mettant juste Dim olApp et met en commentaire
Set olApp = GetObject(, "Outlook.Application") comme ceci
'Set olApp = GetObject(, "Outlook.Application")
J'ai fait un test et sa fonctionne aussi. Coche la référence outlook , microsoft scripting runtime, wbscript regular expressions 5.5