Demande de sauvegarde à la fermeture VBA

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