Sub ajoutEnregistrementTableAccess()
'source : K Dales
Dim Cn As ADODB.Connection
Dim xSQL As String
Set Cn = New ADODB.Connection
Cn.Open 'DRIVER={Microsoft Access Driver (*.mdb)}; ' & _
'DBQ=C:\\Documents and Settings\\michel\\dossier\\Database.mdb'
xSQL = 'INSERT INTO [Table1] ' _
& 'VALUES ('' & Range('A1').Value & '', '' & Range('A2').Value & '', '' _
& Range('A3').Value & '', '' & Range('A4').Value & '')'
Cn.Execute xSQL
Cn.Close
Set Cn = Nothing
End Sub