XL 2010 Impossible d'exécuter la macro. Importe Excel vers Word.

Sub validation()
Dim instanceW As Object: Dim chemin As String


Set instanceW = CreateObject("Word.Application")
instanceW.Visible = True
instanceW.Documents.Add DocumentType:=wdNewblankDocument
instanceW.ActiveDocument.SaveAs ThisWorkbook.Path & "\" & Range("TITRE") & "-" & Range("Nprojet").Value & "-" & Replace(Replace(Replace(Now, "/", "-"), " ", "-"), ":", "-") & ".docx"
instanceW.Quit

Set instanceW = Nothing
MsgBox "Le rapport a bien été généré dans le sous-dossier exports"

End Sub

Sub validation()
Dim instanceW As Object: Dim chemin As String

NomTemplate = "FORMULAIRE_TEMPLATE_PHII.docx" 'nom du fichier template à utiliser
Set instanceW = CreateObject("Word.Application") 'création d'une instance word
instanceW.Visible = True 'on affiche l'instance (sinon.. pas sur de pouvoir ouvrir et modifier le template..pas essayé)
instanceW.documents.Open ThisWorkbook.Path & "\" & NomTemplate 'on ouvre le template

'manque le code pour remplir les infos dans le word==> je ne sais pas comment on fait.. à partir de champs de fusion???

instanceW.ActiveDocument.SaveAs ThisWorkbook.Path & "\" & Range("TITRE") & "-" & Range("Nprojet").Value & "-" & Replace(Replace(Replace(Now, "/", "-"), " ", "-"), ":", "-") & ".docx" 'on enregistre le template avec le nom créé à partir des données de la feuille Excel
instanceW.Quit 'on quitte word

Set instanceW = Nothing 'libère la mémoire
MsgBox "Le rapport a bien été généré dans le sous-dossier exports" 'message

End Sub