Comment executer une macro à chaque document ouvert

Copier la macro dans chaque nouveau document.

Ou

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoxpta/html/odc_comaddinvb6.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deovrBuildingCOMAddinsForOfficeApplications.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office06062002.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office03072002.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office03072002.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/dewlkwalkthroughcreatingcomadd-in.asp

"Patrick" <Patrick@discussions.microsoft.com> a écrit dans le message de
news:11B373F6-F729-42FB-B49E-1162EF42BD7B@microsoft.com...

Comment faire pour que cette macro s'execute à chaque document !

Private Sub Document_BeforeClose(Cancel As Boolean)
Dim lenom As String, ledossier As String
lenom = ActiveDocument.Name
ledossier = "c:Fipub"
lenom = ledossier & lenom
ActiveDocument.SaveAs Filename:=lenom
End Sub
Merci.