Voici mon code...je ne comprends pas pourquoi mon tableau ne se créé pas...HELP please!
 
 
Sub ouvrirDocWord_MiseEnPage()
 
'necesite d'activer la reference Microsoft Word xx.x Object Library
 
Dim appWd As Word.Application
Dim docWord As Word.Document
Dim Range As Word.Range
Dim montab As Table
 
Set appWd = CreateObject("Word.Application" )
Set docWord = appWd.Documents.Open("...\TEST.docx", ReadOnly:=False)
appWd.Visible = True
 
Set montab = docWord.Tables.Add(Range:=Selection.Range, NumRows:=5, NumColumns:=3)
 
End Sub

Salut, la couleur jaune n'améliore pas la lisibilité , c'est même le contraire.
 
les "gne" pour voir    ..