Archivage par touche ALT+Z ne fonctionne plus

[OOKAMIFR]

hello

voila mon soucis

j'ai une fonction qui me permettais d'archiver automatiquement mes mails recu dans mon archive nomé 0. Archive rapide

du jour au lendemain, cette fonction n'a plus marché et je ne comprend pas pourquoi

j'ai regardé le code VB et je ne trouve pas la solution

voila le code


Sub Archive()
Set ArchiveFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("0. Archive rapide")

code repris de la source suivante :
'Set ArchiveFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Archive")

For Each Msg In ActiveExplorer.Selection
Msg.UnRead = False
Msg.Move ArchiveFolder
Next Msg
End Sub


le code n'est plus bon et me donne l'erreure suivante

operation failed.an object could not be found

quelqu'un pourrait'il m'aider sur ce point ?
merci pour tout complément d'info