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