For Each classeur In Workbooks ' pour chaque classeur dans l'ensemble des classeurs ouverts
If classeur.Name = "Classeur1.xlsx" Then 'si le nom est celui du classeur récap celui-ci est ouvert
Workbooks("Classeur1.xlsx").Save 'On enregistre
Workbooks("Classeur1.xlsx").Close 'On ferme
End If
Next