Microsoft 365 Enregistrer les onglets d'un fichier Excel séparément.

Bonjour,
Je souhaite séparer tous les onglets d'un tableau excel en 1 seul clic. Pourriez vous m'aiguiller car je ne retrouve pas la manip à faire ?
Merci

via le code
Sub saveOnglet()
Dim ws
Dim newWk As Workbook

For Each ws In Worksheets
Set newWk = Workbooks.Add(xlWBATWorksheet)
Application.DisplayAlerts = False
ws.Copy newWk.Sheets(1)
Sheets("Feuil1").Delete
newWk.SaveAs (ws.Name & ".xlsx")
newWk.Close
Application.DisplayAlerts = True
Set newWk = Nothing
Next ws

End Sub