Demande de sauvegarde à la fermeture VBA

Bonjour à tous,

Lorsque j'utilise le code ci-dessous:

Sub essai()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim Nbr As Long
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.Filename = xls
.MatchTextExactly = True

Nbr = .Execute
For Each NomFic In .FoundFiles
If Right(NomFic, 13) = "modif.xls" Then GoTo suite
Workbooks.Open Filename:=NomFic
Sheets("Lettre de relance 1").Range("C17").Formula = "=Renseignements!E15"
ActiveWorkbook.Save
ActiveWorkbook.Close

suite:
Next
End With
End Sub

A chaque fermeture de fichier, il apparait malgré tout la box me demandant si je veux sauvegarder. Je ne comprends pas pourquoi. Quelqu'un a-t-il une idée?
Merci,