Pb de compilation du code

Sub HdbCutter()

Dim xHDB(10000)
Dim x_repdeb_HDB(20, 2)

Open "older\file.hdb" For Input As 1

Nbline = 0
NSTR = 0
r = 1
Do While Not EOF(1)
    Line Input #1, xHDB(r)
    If InStr(xHDB(r), "STRUCTURES_NUMBER") <> 0 Then
        R_part_com = r
    End If
    If InStr(xHDB(r), "STRUCTURE_") <> 0 Then
        NSTR = NSTR + 1
        x_repdeb_(NSTR, 1) = r
    End If
    r = r + 1
Loop
RMAX = r
NSTR_max = NSTR

Close #1

For ISTR = 1 To NSTR_max
Open "older\file" & ISTR & ".hdb " For Output As 1

For i = 1 To R_part_com
    Print #1, xHDB(i)
    
Next

If ISTR <> NSTR_max Then
    Rend1 = x_repdeb_(ISTR + 1, 1) - 1
Else
    Rend1 = RMAX
End If
For i = x_repdeb_(ISTR, 1) To Rend1
    Print #1, xHDB(i)
Next

Close #1
Next

End Sub