[VBA Excel]Créer un tableau sous Word ?

  Salut  

Bon, j'ai généré automatiquement une macro Word pour créer un tableau 1 ligne, 1 colonne et vide, puis je l'ai nettoyée de toutes les choses inutiles et voilà ce que j'ai placé dans mon code vba excel et qui me pose souci :

Word.Application.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed

With Word.Application.Selection.Tables(1)

    .Columns.PreferredWidth = CentimetersToPoints(10)

    If .Style <> "Grille du tableau" Then

        .Style = "Grille du tableau"

    End If

    .ApplyStyleHeadingRows = True

    .ApplyStyleLastRow = True

    .ApplyStyleFirstColumn = True

    .ApplyStyleLastColumn = True

End With

Word.Application.Selection.Tables(1).Rows.Alignment = wdAlignRowCenter

Word.Application.Selection.Range.Cells(1).VerticalAlignment = wdCellAlignVerticalCenter

Word.Application.Selection.TypeText Text:="Test :"

Word.Application.Selection.HomeKey Extend:=wdExtend

Word.Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

With Word.Application.Selection.Font

    .Size = 14

    .Bold = True

End With

J'obtiens un message d'erreur :
Microsoft Visual Basic
Erreur d'exécution '450':
Nombre d'arguments incorrext ou affectation de pripriété incorrecte

Le débogage m'indique une erreur dans la première ligne...
J'ai testé en mettant la macro pure et dur (=sans aucune retouche) dans mon excel en prenant soin d'y ajouter simplement un "Word.Application." devant les fonctions mais j'ai le même message d'erreur, situé au même endroit dans le code ...

J'ai bien ajouté la librairie Word dans excel. Je ne comprend vraiment pas pourquoi ca ne fonctionne pas :-(

Merci d'avance de votre aide.