Petite macro VBA de Word 2019 : ne fonctionne pas

Bonjour, Je ne parviens pas à trouver l'erreur dans ce petit programme de VBA pour Word et j'ai aussi essayé avec le format Monnaie pour la ligne de MsgBox

MsgBox "Le prix de l'article avec taxes est de " & Format(CouTotal, "# ##0.00 $"),, Titre

Sub Prix()
Const conTPS = 1.05
Const conTVQ = 1.09975
Dim CouTotal As Currency, Titre As String, PrixArticle As Currency
PrixArticle = InputBox("Entrez le prix de l'article", "Prix")
CouTotal = (PrixArticle * conTPS * conTVQ)
Titre = "Prix de l'article"
MsgBox "Le prix de l'article avec taxes est de " & CouTotal, , Titre
End Sub