Private Function ChangeWords(sWordsToRemove As String, sWordsToChange As String, sFile As String) As Boolean 
    If Dir(sFile, vbSystem Or vbHidden) = vbNullString Then 
'       fichier existe?
        ChangeWords = False 
    Else 
'       ouvre le fichier
        Dim FF As Integer, sBuffer As String 
        FF = FreeFile 
        Open sFile For Input As #FF 
            sBuffer = Input(LOF(FF), 1) 
        Close #FF 
'       ligne à changer existe?
        Dim lPos As Long 
        lPos = InStr(1, sBuffer, sWordsToRemove) 
        If lPos = 0 Then 
            ChangeWords = False 
        Else 
'           on découpe
            Dim sFirst As String, sLast As String 
            sFirst = Left$(sBuffer, lPos - 1) 
            sLast = Right$(sBuffer, Len(sBuffer) - lPos - Len(sWordsToRemove) + 1) 
'           on écrit
            FF = FreeFile 
            Open sFile For Output As #FF 
                Print #FF, sFirst & sWordsToChange & sLast 
            Close #FF 
            ChangeWords = True 
        End If 
    End If 
End Function

TexteARemplacer est une chaine = "bonjour"
TexteDeRemplacement est une chaine = "merci
NomFichier est une chaine = "C:\test.txt" // contient "on dit bonjour quand on est poli :p"
fSauveTexte(NomFichier, Remplace(fChargeTexte(NomFichier), TexteARemplacer, TexteDeRemplacement))

Private Function ChangeWords(sWordsToRemove, sWordsToChange, sFile)
'   ce snippet nécessite les fonctions :
'    FileExists          http://codyx.org/snippet_savoir-si-fichier-existe_65.aspx#2206
'    ReadDataFromFile    http://codyx.org/snippet_recuperer-texte-contenu-dans-fichier_32.aspx#2308
'   WriteDataToFile      http://codyx.org/snippet_enregistrer-chaine-caractere-dans-fichier_33.aspx#2193

    If FileExists(sFile) Then
'       ouvre le  fichier
        Dim sBuffer
        sBuffer = ReadDataFromFile(sFile)
'       ligne à changer existe?
        If InStr(1, sBuffer, sWordsToRemove) > 0  Then
            sBuffer = Replace(sBuffer, sWordsToRemove,  sWordsToChange)
            WriteDataToFile sFile, sBuffer
            ChangeWords = True
        End If
End Function