Automatiser enregistrement de fichiers

bonjour a tous,

j'ai ce code qui ouvre tous les fichiers Excel d'un dossier ,recherche un mots et le remplace,

une fois le mots remplacé j'ai une fenêtre qui apparait et me demande si je veut enregistrer les modifications .

j'aimerais que ce code ouvre ,modifie , enregistre , et ferme le fichier et passe au suivant

merci d'avance

Sub traiter_dossier()

    Dim nom_dossier As String: Dim fichier As Object
    Dim le_dossier, chaque_fichier: Dim flux_lecture
    Dim ligne As Integer: Dim le_fichier As Object, sh As Object
    Dim contenu As String: Dim chercher As String: Dim remplacer As String, traitement As String

    nom_dossier = Range("B6").Value
    chercher = Range("B9").Value
    remplacer = Range("B11").Value

    ligne = 8

    chaque_fichier = Dir(nom_dossier & "\*.xls*")

    Do While chaque_fichier <> ""
        Cells(ligne, 7).Value = nom_dossier & "\" & chaque_fichier

        On Error Resume Next
        Set le_fichier = Workbooks.Open(nom_dossier & "\" & chaque_fichier)
        If le_fichier Is Nothing Then
            traitement = "pas ok" & Error(Err) & " " & Err.Description
            On Error GoTo 0
        Else
            On Error GoTo 0
            For Each sh In le_fichier.Worksheets

                sh.Cells.Replace what:=chercher, Replacement:=remplacer, lookat:=xlPart

            Next sh
            traitement = "ok"
            le_fichier.Close
        End If

        Cells(ligne, 9).Value = traitement

        ligne = ligne + 1
        chaque_fichier = Dir()
    Loop

End Sub

Bonjour,

Juste avant le_fichierClose mettre :

 le_fichier.Save 

A+

merci beaucoup ,