Dim InTable As TableDef Dim Champs1 As Field Set Champs1 = InTable.CreateField("nomchamps", dbLong) InTable.Fields.Append Champs1