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