Erreur d'execution BASIC Variable d'objet non definie

je suis en plein deboguage de macros sous open office mais la je bloque quelqu'un pour un cous de main ????

le code:

LesFeuillesCible = Journal.sheets
wait 1000 ' permet à l'évement ouverture doc de s'executer
DocJournal.CurrentController.ActiveSheet = LesFeuillesCible.getByName("Devis")
FeuilleCible = LesFeuillesCible.getByName("Devis")
DateDevis = MaFeuille.GetCellRangeByName("DateChiffre").value

NomListe= FeuilleDonnee.GetCellRangeByName("InfoNomListe").String 'Nom de liste utilisé pour la facture