Associer une macro à son fichier (LibreOffice)

Option explicit
Sub Main
dim feuille as object, cellule as object
dim i as long, a as string, jDate as string, jtemps as string
   feuille = ThisComponent.sheets(0)
   feuille.columns.insertByIndex(1,1)
   feuille.getCellByPosition(0, 0).String = "Date"
   feuille.getCellByPosition(1, 0).String = "Time"
   for i = 1 to 1000
      cellule = feuille.getCellByPosition(0, i)
      a = cellule.string
      if a <> "" then
         jDate = left(a, 10)
         jDate = join(split(jDate,"/"),"")
         feuille.getCellByPosition(0, i).string = jDate
         jTemps = mid(a, 12, 5) + "00"
         jTemps = join(split(jTemps, ":"),"")
         feuille.getCellByPosition(1, i).string = jTemps
      end if
   next
End Sub