VBA Access problema de ejecución de un botón

Hola,
he creado un código provisional para probar mi función en click durante un formulario

y tiene un error cuando hago clic en el botón me escribe

"La"expresión en clic entrada como parámetro de la propiedad de tipo evento es la origen de un error Tipo definido por el usuario no definido.
El resultado de la expresión no es el nombre de una macro, el nombre de una función definida por el usuario o [Procedimiento de evento]

Puede que se haya cometido un error al evaluar una función, un evento o una macro"

mi botón está configurado en procedimiento de evento
Si alguien ve el error se lo agradecería de antemano

Sub Commande0_Click() Dim l As Integer l = Ligne() DoCmd.TransferSpreadsheet acImport, , CA, "D:\Eric\dossier_projets\TDB\Chiffres-Affaires\a-Activité paiement porteurs CA an2007.xls", 0, "K" & i End Sub Public Function Ligne() As interger Public AppExcel As Excel.Application Private wbFile As Excel.Workbook Public i As Integer Set AppExcel = CreateObject("Excel.Application") ' Ouverture d'excel If Not AppExcel Is Nothing Then Set wbFile = AppExcel.Workbooks.Open("c:\toto.xls", False, True) 'Ouverture du classeur If Not wbFile Is Nothing Then Do While Cells(i, 1).Text <> "TOTAL" i = i + 1 Loop wbFile.Close AppExcel.Application.Quit Set AppExcel = Nothing End If End If End Function 

Configuration: Windows XP Internet Explorer 6.0