Set mytbl = wrdDoc.Tables.Add(Range:=wrdDoc.Bookmarks("M").Range, NumRows:=1, NumColumns:=4)
For Z = 0 To Me.LB_synthese_formation.ListCount - 1
derligne = mytbl.Rows.Count
Me.LB_synthese_formation.Selected(Z) = True
With mytbl
mytbl.Cell(derligne, 1).Range.Text = Me.LB_synthese_formation.Column(0)
mytbl.Cell(derligne, 2).Range.Text = Me.LB_synthese_formation.Column(1)
mytbl.Cell(derligne, 3).Range.Text = Me.LB_synthese_formation.Column(2)
mytbl.Cell(derligne, 4).Range.Text = Me.LB_synthese_formation.Column(3)
End With 'modif
mytbl.Rows.Add 'modif
derligne = mytbl.Rows.Count
With mytbl
mytbl.Cell(derligne, 0).Range.Text = Me.LB_synthese_formation.Column(4)
mytbl.Cell(derligne, 1).Merge Mergeto:=mytbl.Cell(derligne, 4)
mytbl.Rows.Add
derligne = mytbl.Rows.Count
mytbl.Cell(derligne, 1).Split NumRows:=1, NumColumns:=4 ', MergeBeforeSplit=True
End With