Microsoft 365 [RESOLU]UserForm qui revient à la fermeture d'un classeur, du fait le classeur se bloque et il faut fermer manuellement l'UserForm

Sub auto_open()
    UserForm1.Show
End Sub

Sub Sauvegarde()
Dim NameNew As String, WbName As String, Wb As Workbook

    With Sheets("Feuil1")
        If .[I1] = "" Then Exit Sub
        WbName = ThisWorkbook.FullName ' nom du classeur en cours
        Application.DisplayAlerts = False
        NameNew = .[I1] & ".xlsx"
    End With
    ThisWorkbook.SaveAs Path & NameNew, xlWorkbookDefault
    ThisWorkbook.Saved = True
    Application.Quit

End Sub

Application.Quit

    If Application.Workbooks.Count > 1 Then
        ThisWorkbook.Close
    Else
        Application.Quit
    End If

Sub Sauvegarde()
Dim NameNew As String, WbName As String, Wb As Workbook

    With Sheets("Feuil1")
        If .[I1] = "" Then Exit Sub
        WbName = ThisWorkbook.FullName ' nom du classeur en cours
        Application.DisplayAlerts = False
        NameNew = .[I1] & ".xlsx"
        ActiveSheet.[Button 2].Delete
    End With
    ThisWorkbook.SaveAs Path & NameNew, xlWorkbookDefault
    
    ThisWorkbook.Saved = True
    Application.Quit

End Sub

Set Wb = Workbooks.Open(WbName)
'    With Wb.Sheets("Feuil1")
'        .Range("B8:F32").ClearContents
'        .Range("I3:I4").ClearContents
'        .Range("I8:I32").ClearContents
'        .Range("I3").Select
'        .Parent.Save
'        .Parent.Close
'    End With
'
'    ThisWorkbook.Save

Option Explicit

Const Path As String = "K:\Mes documents\Temp\"

Sub Sauvegarde()
    Dim ws As Worksheet: Set ws = Sheets("Feuil1")
    Dim baseName As String: baseName = Trim(ws.Range("I1").Value)
    Dim originalPath As String: originalPath = ThisWorkbook.FullName
    Dim shp As Shape

    If baseName = "" Then Exit Sub

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Path & baseName & ".xlsx", xlOpenXMLWorkbook

    For Each shp In ws.Shapes
        If shp.Name = "Button 2" Then shp.Delete: Exit For
    Next

    With Workbooks.Open(originalPath).Sheets("Feuil1")
        .Range("B8:F32,I3:I4,I8:I32").ClearContents
        .Range("I3").Select
        .Parent.Save
        .Parent.Close False
    End With

    ' Fermer le UserForm si ouvert
    On Error Resume Next
    Unload UserForm1 ' Remplace par le nom réel de ton UserForm
    On Error GoTo 0

    ThisWorkbook.Save
    Application.Quit
End Sub