Sub Sauve_Espace_travail()
Dim w As Window
ThisWorkbook.Sheets("Feuil1").Range("B1:B1000").ClearContents
n = 1
For Each w In Windows
If Mid(Workbooks(w.Caption).Path & "\" & w.Caption, 1, 9) = "\Classeur" Then GoTo Suite
ThisWorkbook.Sheets("Feuil1").Cells(n, 2) = Workbooks(w.Caption).Path & "\" & w.Caption: n = n + 1
Suite:
Next w
ThisWorkbook.Save
End Sub
Sub Ouvre_Espace_travail()
On Error Resume Next
Nchoixmax = ThisWorkbook.Sheets("Feuil1").Range("B65536").End(xlUp).Row
For i = Nchoixmax To 1 Step -1
Workbooks.Open ThisWorkbook.Sheets("Feuil1").Range("B" & i)
Next
End Sub