Dim wrdApp As Object
Dim wrdDoc As Object
Dim Z As Long
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(ActiveWorkbook.Path & "\Fichetypetest.dot")
wrdApp.ShowMe ' pour afficher le document
wrdApp.Visible = False
wrdApp.Application.ScreenUpdating = False
wrdApp.Application.DisplayAlerts = False
Dim mytbl
Nb = WorksheetFunction.CountA(Worksheets("Base").Columns("A:A")) - 1
IDcandidat = Nb + 1
With wrdDoc
wrdDoc.Bookmarks("Nom").Range.Text = Me.TB_nom.Value
wrdDoc.Bookmarks("Prénom").Range.Text = Me.TB_prenom.Value
'etc
Set mytbl = wrdDoc.Tables.Add(Range:=wrdDoc.Bookmarks("M").Range, NumRows:=2, NumColumns:=4)
For Z = 0 To Me.LB_synthese_formation.ListCount - 1
Me.LB_synthese_formation.Selected(Z) = True
mytbl.Cell(Z, 1).Range.Text = Me.LB_synthese_formation.Column(0)
mytbl.Cell(Z, 2).Range.Text = Me.LB_synthese_formation.Column(1)
mytbl.Cell(Z, 3).Range.Text = Me.LB_synthese_formation.Column(2)
mytbl.Cell(Z, 4).Range.Text = Me.LB_synthese_formation.Column(3)
Next Z