voila ce que j'ai mis comme programme, et ça merche pas, pas de message d'erreur, mais la ligne ne se supprime pas
pour plus de précision, la chaine de caractère que je cherche se trouve sur un textbox(TxtGalia) qui se trouve sur un autre Form(FrmPrinc)
Private Sub BtnchangeRef_Click()
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:\Galia Lue.txt") For Input As #ff
While Not EOF(ff)
Line Input #ff, sLigne
colLignes.Add sLigne
Wend
Close #ff
'Suppression des lignes
For i = colLignes.Count To 1 Step -1
If InStr(1, FrmPrinc.TxtGalia, colLignes(i), vbTextCompare) <> 0 Then colLignes.Remove i
Next
'Réecriture du fichier
Dim k As Integer
Open ("c:\Galia Lue.txt") For Output As #ff
For k = 1 To colLignes.Count
Print #ff, colLignes(k)
Next
Close #ff
End Sub