Sub classeurs()
Dim feuille As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si un fichier a déjà été créé
For Each feuille In Sheets
If feuille.Name <> "Menu" And feuille.Name <> "Liste" Then
feuille.Visible = xlSheetVisible 'si la feuille a été masquée
feuille.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & feuille.Name, _
FileFormat:=IIf(Val(Application.Version) < 12, -4143, 56)
ActiveWorkbook.Close
End If
Next
End Sub