Modifier un fichier.data en vba

Option Explicit

Public Sub main()

    LireFichier
    Kill ("C:\Monfichier.data")
    Name "C:\resOut.data" As "C:\Monfichier.data"
    
End Sub

Public Sub LireFichier()
Dim fp As Integer
Dim chemin As String
Dim chaine As Variant
Dim lig As Long

    lig = 1
    chemin = "C:\Monfichier.data"
    On Error Resume Next
    fp = FreeFile
    Open chemin For Input As #fp
    While Not EOF(fp)
        Line Input #fp, chaine
            If lig = 5 Then
                Call EcrireFichier("J'ai changé cette ligne")
            Else
                Call EcrireFichier(chaine)
            End If
        lig = lig + 1
    Wend
    Close #fp
    
End Sub

Public Sub EcrireFichier(ByVal str As Variant)
Dim fp As Integer
Dim chemin As String

    On Error Resume Next
    fp = FreeFile
    
    chemin = "C:\resOut.data"
    Open chemin For Append As #fp
    Print #fp, str
    Close #fp
    
End Sub