Sub inserer_table()
Dim connexion As ADODB.connection
Dim show As Recordset
Dim rapporte As String
Dim db As DAO.Database
Set db = CurrentDb
Dim insere As String
Set connexion = CurrentProject.connection
rapporte = "SELECT enchainement FROM INPUT WHERE enchainement = 'EN0001'"
Set show = db.OpenRecordset(rapporte, dbOpenForwardOnly, dbReadOnly)
insere = "INSERT INTO table_essai (enchainement) VALUES('" & show & "')"
connexion.Execute insere
End Sub