Dim Texte As String, Cherché As String, Inséré As String, Point_dInsertion As Long Cherché = "La chaîne que je cherche" Inséré = "J'ajoute ici" Open "g:\Chemin\Fichier.txt" For Binary As #1 Texte = Input(LOF(1), 1) Point_dInsertion = InStr(Texte, Cherché) + Len(Cherché) Texte = Left(Texte, Point_dInsertion - 1) & Inséré & Mid(Texte, Point_dInsertion) Put 1, , Texte Close