Macro excel pour mise en forme dans Word

[fb62840]

Bonjour à toutes et à tous,

Je sollicite votre aide pour parvenir à mettre en forme un tableau et du texte dans un tableau créé dans word à partir d'une macro excel.

Je cherche par exemple à sélectionner la colonne 1 du tableau afin de lui assigner une largeur (exemple 5 cm).
Puis sélectionner la 2ème cellule et modifier la police (supprimer le caractère gras)
Puis sélectionner la Ligne en dessous et modifier la police (passer à l'Arial).

voici la portion de code qui créé et alimente le tableau :

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

Merci pour votre aide