Problème de mise en forme deTableau

Bonjour,

Je fais des macro pour aider des utilisateur =E0 respecter=20
un gabarit word. Je propose notamment d'ins=E9rer du texte,=20
des listes ...
je voudrais donner la possibilit=E9 d'ins=E9rer un tableau :
le code :
----------------------------------------------------------
Private Sub tblbtn_Click()
'
' Macro2 Macro
' Macro enregistr=E9e le 12.08.2003 par Marc F
'

Dim iRows As Integer, iColumns As Integer
Dim MyTable

iRows =3D InputBox("Nombre de de lignes ?")
iColumns =3D InputBox("Nombre de de colomne ?")

If iRows > 1 And iColumns > 1 Then '2x2
Set MyTable =3D ActiveDocument.Tables.Add
(Selection.Range, iRows, iColumns)
=20
For i =3D 2 To iRows
MyTable.Cell(i, 1).Range.InsertAfter "intitul=E9 " &=20
i - 1
Next i
' _________________________________________________
' la desous se situe mon probl=E8me, j'aimerais d=E9finir_
' un style de tableau (largeur et hauteur fixe, couleur=20
' de trait, alignememt, style de texte ..._
' qui s'applique direct ...
' -------------------------------------------------
MyTable.AutoFormat Format:=3DwdTableFormatColorful2
' _________________________________________________
=20
Else
=20
MsgBox "d=E9sol=E9, minimum 2 colomnes et 2 lignes pour=20
construire un tableau !"

End If
End Sub
----------------------------------------------------------

Merci =E0 celui qui pourra me d=E9panner !

Marc F