essai ça :



Dim Query As String

Query="INSERT INTO table2 SELECT * FROM table1"
CurrentDB.Execute(Query)