Ошибка выполнения '438' при использовании процедуры экспорта Sheet1 в CSV

Question

Из этого Макроса Excel - Экспорт листа в CSV и поиск каталога для сохранения , я использовал следующий код для экспорта Лист1 в файл CSV с файлом браузера для сохранения:

ЗдесьФункция, которую я использовал:

Sub ExportCSV()

Dim MyPath As String
Dim MyFileName As String

MyFileName = "Base_donnees" & "_" & Format(Date, "ddmmyyyy")

If Not Right(MyFileName, 4) = ".csv" Then MyFileName = MyFileName & ".csv"

Sheets("Sheet1").Copy

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = "" '<~~ The start folder path for the file picker.
    If .Show <> -1 Then GoTo NextCode
    MyPath = .SelectedItems(1) & "\"
End With

NextCode:

With ActiveWorkbook
    .SaveAs Filename:=MyPath & MyFileName, FileFormat:=xlCSV, CreateBackup:=False
    .Close False
End With

End Sub

И когда я нажимаю кнопку «Экспорт в CSV», я получаю следующую ошибку:

и в окне выгрузки отображается:

Как видите, я получаю

Ошибка времени выполнения '438 ': Объект не поддерживает это свойство или метод

Какой метод или свойство я должен использовать?Я использую Excel 2011 для MacOS

Внешний вид редактора VBA:

Файл VBA не загружается на по этой ссылке

Любая помощь приветствуется, с уважением