Dim colLignes As New Collection
Dim ff As Integer
ff = FreeFile

Dim sLigne As String

'Lecture du fichier, envois chaque ligne dans la collection
Open "C:\votrefichier.txt" For Input As #ff
    While Not EOF(ff)
        Line Input #ff, sLigne
        colLignes.Add sLigne
    Wend
Close #ff

'Suppression des lignes 5 et 11 par exemple
colLignes.Remove 11
colLignes.Remove 5

'Réecriture du fichier
Dim i As Integer
Open "C:\votrefichier.txt" For Output As #ff
   For i = 1 To colLignes.Count
        Print #ff, colLignes(i)
   Next
Close #ff

''' <summary>

''' Supprime les lignes spécifiées d'un fichier.

''' </summary>

''' <param name="FileName">Chemin du fichier</param>

''' <param name="Lines">N° des lignes à supprimer</param>

''' <param name="LineSeparator">Séparateur de ligne, CrLf pris par défaut.</param>
Public Sub RemoveLinesFromFile(ByVal FileName As String, ByVal Lines() As Integer, Optional ByVal LineSeparator As String = vbCrLf)   Dim FileLines As New List(Of String) 
   FileLines.AddRange(IO.File.ReadAllText(FileName).Split(LineSeparator))

   For Each Line As Integer In Lines
      Try


         FileLines(Line) = Nothing
      Catch ex As Exception 
         'Do Nothing

      End Try

   Next
   Dim Content As New Text.StringBuilder 
   For Each Line As String In FileLines
      Try


         If Line Is Nothing Then Continue For

            Content.Append(Line & LineSeparator)
      Catch ex As Exception 
          Throw ex
      End Try


   Next

   IO.File.WriteAllText(FileName, Content.ToString)

End Sub