Macro en VBA import des données vers Acess

Sub importer_Excel_Access()
    'Michel_M 19/05/04 pour Excel-downloads
    'a partir du site de Fred Sigonneau (Merci)
    Dim tabase As Object
    Dim requete As Object
    Dim laTable As String
    Dim lig As Long, cptr As Long
    Dim deb As Byte ' début avant ligne 256 sinon type integer
    
    laTable = "nomde_latablecible_danstabase"
    Set tabase = CreateObject(ADODB.Connection)
    Set requete = CreateObject(ADODB.Recordset)
    With tabase
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open "chemin_de_tabase\nom_detabase.mdb"
    End With

    With requete
        .activeConnection = tabase
        .Open laTable, lockType:=adLockOptimistic
    End With
    With Sheets(1) ' tableau en feuille1 et en colonne 1
        lig = .Range("A65536").End(xlUp).Row
        deb = 2 'début des occurences dans excel
        With requete
            For cptr = deb To lig
                .addNew
                     .Fields("Nom").Value = .Cells(lig, 1)
                    .Fields("prenom").Value = .Cells(lig, 2)
                    .Fields("sexe").Value = .Cells(lig, 3)
                 .Update
            Next
        End With
    End With

    requete.Close
    labase.Close

    End Sub

--
Cordialement,
Michel