Dictionnaire orthographique personnel

[tontonexcel]

Bonjour à tous

J'ai créé un dictionnaire orthographique perso contenant une liste de mots que je souhaite activer à l'ouverture d'un document spécifique
Après quelque recherches simples j'ai trouvé le code suivant :

Sub active_dico_perso()

CustomDictionaries.ActiveCustomDictionary = _
CustomDictionaries(ThisDocument.Path & Application.PathSeparator & "VBA.dic")

End Sub

En exécutant la macro, elle ne plante pas, mais le dictionnaire n'est pas activé alors qu'il est bien visible dans les options de vérification
J'ai vérifié le chemin, il est valide
Avez-vous une (ou des) explication ?
Merci

 

[tontonexcel]

J'ai corrigé le programme comme suit qui fonctionne :

Sub active_dico_perso()

Dim dicoperso As Dictionary

Set dicoperso = _
Application.CustomDictionaries.Add(FileName:=ThisDocument.Path & Application.PathSeparator & "VBA.dic")

CustomDictionaries.ActiveCustomDictionary = dicoperso
End Sub

Maintenant je ne comprends pas pourquoi je dois faire une méthode Add alors que le dictionnaire existe déjà 😵
Si quelqu'un trouve une explication merci