Enregistrer fichier et le supprimer ensuite

Bonjour, j'aurais besoin de votre aide, j'ai un fichier excel avec de nombreux onglets que je souhaite enregistrer, voici le fichier exemple :

Et voici la base de macro que j'ai pour l'instant, mais elle n'enregistre que les onglets nommés "finale".

Sub Save()
    Worksheets("finale").Copy '
    ActiveWorkbook.SaveAs "C:\Users\XXXX\Desktop\Resultats\Resultat" & Worksheets("finale").Name
    ActiveWorkbook.Close
End Sub

Je voudrais qu'il enregistre les onglets à partir du 4ème(ça sera toujours à partir du 4ème) en gardant le nom de l'onglet si possible et qu'il ne reste finalement que les trois premiers onglets.

Je me rends compte que je ne suis pas très clair, Voici des captures d'écrans pour l'être :

Au départ on a ceci :

Après la macro, dans le dossier "resultat" sur mon bureau apparaît les onglets à partir du 4ème :

et qu'il ne reste que

Voila, merci beaucoup

Bonjour,

Ceci devrait pouvoir faire l'affaire.

Sub Save()
Dim Ws As Worksheet, NewWb As Workbook
Dim chemin, nom As String

chemin = "C:\Users\XXXX\Desktop\Resultats\Resultat\"

For i = Sheets.Count To 4 Step -1
    Worksheets(i).Move
    Set NewWb = ActiveWorkbook
    nom = ActiveSheet.Name
    NewWb.SaveAs chemin & nom & ".xlsx", FileFormat:=51
    NewWb.Close False
Next
End Sub

C'est parfait, exactement ce que je voulais, merci beaucoup JoyeuxNoel !! Bonne journée