Message d'erreur VB

Bonjour a tous et a toute


voila j'ai ce programme qui permet de copier le contenue d'une cellule excel dans un champs access
Function WritingWorksheetData_DAo(myname As String)


Dim Plage As Range

Dim Array1 As Variant

Dim x As Variant

Dim Db1 As DAO.Database


Dim Rs1 As DAO.Recordset

Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook




Set appexcel = CreateObject("excel.application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open(myname)

appexcel.Sheets("feuil1").Select
Set Plage = Worksheets("Feuil1").Range("A1").CurrentRegion.Offset(0, 0)



' Ouverture de la base de données Commandes.mdb

Set Db1 = CurrentDb()
Set Rs1 = Db1.OpenRecordset("site", dbOpenDynaset)

' Ouverture de la table Factures

' Un objet Recordset représente les enregistrements d'une table



' Détermination de la taille de la plage à envoyer vers Access


Array1 = Plage.Value


' Ecriture des données depuis Excel vers les enregistrement de la table Factures





With Rs1



.AddNew


.Fields("lieu") = Plage.Cells(9, 1)
Plage.Select

.Update


End With

appexcel.Workbooks.Close


' Fermeture de la base Commandes.mdb

Db1.Close

' Effacement des données copiées vers la base (sauf les titres)


appexcel.Quit


End Function

lors de l'excecution il met ce message d'erreur:

"la methode worksheets de l'objet '-global' a echoué

savez vous ce que cela veut dire

merci pour vos reponses