Bonjour,
Pour faire une réplique des entêtes de tableau sous word, je propose ceci :
Sub OrganiserTableau()
ActiveDocument.Tables(1).Rows(1).Select 'Sélectionne la ligne de titre pour la copier
Selection.Copy
Selection.MoveDown Unit:=wdLine, Count:=1
For i = 2 To ActiveDocument.Tables(1).Rows.Count 'insère la ligne de titre avant chaque nouvelle ligne
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.InsertRows 1
Selection.Collapse Direction:=wdCollapseEnd
Selection.Paste
Next
End Sub
bon courage
Epena