Macro Word & tableaux

Bonjour,

J'ai un document Word qui contient des tableaux.
Je voudrais mettre, par macro, un "en tete" du genre Colonne1/Colonne2/Colonne3 à tous mes tableaux dont le contenu commence par un caractere spécial (ici *, mais ca me pose probleme).
J'ai écrit la macro suivante, mais ca ne marche pas:
- j'ai une erreur de syntaxe avec le If var(0) = * mais je ne sais pas comment l'écrire
- je dois avoir un probleme avec la déclaration de ma variable var qui est en fait un tableau...mais je ne sais pas comment on peut définir un tableau de taille indéterminée en VBA
- j'ai peut etre d'autres erreurs que la précéndet m'empeche de voir ?

Si vous pouviez me donner votre avis sur mon code, ce serait sympa.



Sub MyMacro()

Dim var As String

For Each Tableau In ActiveDocument.Tables
Set MyTableau = WordDoc.Tableau
For i = 1 To Tableau.Columns.Count
For j = 1 To Tableau.Columns(i).Cells.Count
var = Tableau.Columns(i).Cells(j)

If var(0) = * Then

Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
Selection.MoveUp Unit:=wdLine, Count:=1

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.TypeText Text:="Col_1"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="Col_2"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="Col_3"
End If
Next
Next
Next

End Sub