Sub Macro8()
Dim Titres, i As Long
Dim objWord As New Word.Application
Dim wDoc As Word.Document
Titres = Array("TITRE_A", "TITRE_B", "TITRE_C")
'mettre le nom réel du dossier où se trouve le document Word.
Set wDoc = objWord.documents.Open("C:\CHEMIN\Test.docx")
For i = LBound(Titres) To UBound(Titres)
wDoc.SelectContentControlsByTitle(Titres(i)).Item(1).Range.Text = ThisWorkbook.Sheets(1).Cells(i + 1, 1)
Next
wDoc.Save
wDoc.Close
End Sub