fermer les fichiers

Bonjour Ludo

Voici la macro à mettre dans ThisWorkbook de ton fichier:

Option Explicit
Dim WB As Workbook

Private Sub Workbook_Open()
For Each WB In Workbooks
If WB.Name <> "Classeur1" Then ' Modifie Classeur1 par le nom de ton fichier
WB.Close True
End If
Next WB
End Sub

Bonne journée

@Christophe@