Private Sub Worksheet_Change(ByVal Target As Range)
Set Connection = CreateObject('ADODB.connection')
Connection.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\base.mdb;Persist Security Info=False'
On Error Resume Next
Ajout = 'INSERT INTO Feuil1 Target.AddressLocal VALUES ('' & Target & '')'
Connection.Execute (Ajout)
Connection.Close
End Sub