Supprimer ligne connue dans fichier .txt VBA

Sub suppr_1e_ligne()
  Dim sLignes As String
  Dim i As Long
  Dim ff As Integer
  ff1 = FreeFile
  ff2 = FreeFile
 Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011.txt" For Input As #ff1
  Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011(test).txt" For Output As #ff2
  i = 1
        While Not EOF(ff)
            Line Input #ff, sLigne
            If i <> 1 Then
                colLignes.Add (sLigne)
            End If
            i = i + 1
        Wend
End Sub

Sub suppr_1e_ligne()
Dim colLignes As New Collection
Dim F1 As Integer, F2 As Integer
F1 = FreeFile
F2 = FreeFile
Dim sLigne As String, i As Long
'Lecture du fichier 1, écriture dans fichier 2
Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011.txt" For Input As #F1
Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011(test).txt" For Output As #F2
    While Not EOF(F1)
        Line Input #F1, sLigne
        i = i + 1
        If i <> 5 And i <> 11 Then
            Print #F2, sLigne
        End If
    Wend
Close

Sub suppr_1e_ligne()
  Dim sLignes As String
  Dim i As Long
  Dim ff1 As Integer
  Dim ff2 As Integer
  ff1 = FreeFile
  ff2 = FreeFile
 Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011.txt" For Input As #ff1
  Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011(test).txt" For Append As #ff2
  i = 1
        While Not EOF(ff)
            Line Input #ff, sLigne
            If i <> 1 Then
                colLignes.Add (sLigne)
            End If
            i = i + 1
        Wend
End Sub

Sub suppr_1e_ligne()
  Dim sLignes As String
  Dim i As Long
  Dim ff1 As Integer
  Dim ff2 As Integer
  ff1 = FreeFile
 
 Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011.txt" For Input As #ff1
 ff2 = FreeFile 'ICI L'ERREUR, Freefile donne le nombre de fichier OUVERT +1
  Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011(test).txt" For Output As #ff2
  i = 1
         While Not EOF(ff1)
            Line Input #ff1, sLignes
            If i <> 1 Then
                Print #ff2, sLignes
            End If
            i = i + 1
        Wend
        Close
End Sub

        Dim i As Integer = 1  
        While Not EOF(ff)  
            Line Input #ff, sLigne  
            If i <> 5 And i <> 11 Then  
                colLignes.Add(sLigne)  
            End If  
            i += 1  
        End While

Sub suppr_1e_ligne() 
Dim colLignes As New Collection 
Dim F1 As Integer, F2 As Integer 
F1 = FreeFile 
F2 = FreeFile 
Dim sLigne As String, i As Long 
'Lecture du fichier 1, écriture dans fichier 2 
Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUQ_MOBISTORE_15314CEN_19122011.txt" For Input As #F1 
Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUQ_MOBISTORE_15314CEN_19122011.txt" For Output As #F2 
    While Not EOF(F1) 
        Line Input #F1, sLigne 
        i = i + 1 
        If i <> 5 And i <> 11 Then 
            Print #F2, sLigne 
        End If 
    Wend 
Close 
End Sub

Open "C:\Documents and Settings\sghn4628\Desktop\Sujet PFC\FUM_MOBISTORE_15314CEN_31122011(test).txt" For Output As #F2