parsing error on 2018Report.doc

[decalage2]

Parsing error on this sample: https://app.any.run/tasks/2be2b38f-4de2-4b48-8ae5-67bda9eecbaf

-------------------------------------------------------------------------------
PARSING VBA CODE:
INFO     parsed Sub z55e6df583 ([ByVal s2b7d47c629 as String]): 14 statement(s)
INFO     parsed Sub Document_Open (): 5 statement(s)
INFO     parsed Function tfaca84885f ([ByVal zd77f34558c as Variant]): 5 statement(s)
INFO     parsed Sub btnAddOneHero_Click (): 6 statement(s)
INFO     parsed Sub btnImportManyHeroes_Click (): 6 statement(s)
INFO     parsed Sub btnUpdateCalculator_Click (): 13 statement(s)
INFO     parsed Sub btnImportData_Click (): 12 statement(s)
Module None
  Sub z55e6df583 ([ByVal s2b7d47c629 as String]): 14 statement(s)
  Sub Document_Open (): 5 statement(s)
  Sub btnAddOneHero_Click (): 6 statement(s)
  Sub btnImportManyHeroes_Click (): 6 statement(s)
  Sub btnUpdateCalculator_Click (): 13 statement(s)
  Sub btnImportData_Click (): 12 statement(s)
  Function tfaca84885f ([ByVal zd77f34558c as Variant]): 5 statement(s)

Private Function GetLastRowOfSheetInColumn(ByVal ShtInQuestion As Variant, ByVal lngColumnInQuestion As Long) As Long
^
Expected end of text (at char 6683), (line:210, col:1)
Parse Error. Processing Aborted.