XL 2019 transfère de feuilles excel

Sub Enregistrer()
Dim chemin$
chemin = Environ("USERPROFILE") & "\Desktop\" 'chemin du bureau
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs chemin & "Requete.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled:
MsgBox "Le fichier a été enregistré sur le bureau...", vbInformation
End Sub

Sub Transfert()
Dim fichier$, wb As Workbook, s As Object, n%
fichier = Environ("USERPROFILE") & "\Desktop\Requete.xlsm"
If Dir(fichier) = "" Then MsgBox "Fichier '" & fichier & "' introuvable !", 48: Exit Sub
Set wb = ActiveWorkbook 'fichier source
Application.ScreenUpdating = False
With Workbooks.Open(fichier) 'ouverture du fichier de destination
    For Each s In wb.Sheets
        s.Copy After:=.Sheets(.Sheets.Count)
    Next s
    .Close True 'enregistre et ferme le fichier de destination
End With
n = wb.Sheets.Count
MsgBox n & IIf(n < 2, " feuille a été transférée...", " feuilles ont été transférées..."), vbInformation
End Sub