Sauvgarder un fichier sur Mac

Bonjour à tous,

S'il vous plait comment je vais faire pour faire fonctionner ce code sur mac

Sub e()
Dim ch As String
ch = Range("a1")
Workbooks.Add
ActiveWorkbook.SaveAs ch

End Sub

Bonne journée

Bonjour,

Sans information, essaie ainsi :

Option Explicit
'Fileformat mac :
'xlsx = 52
'xlsm = 53
Sub SaveAsNewWorkbook()
Dim sPath As String, sFilename As String
    sPath = ThisWorkbook.Path & Application.PathSeparator
    sFilename = Range("A1").Value & ".xlsx"    'ou .xlsm"
    Workbooks.Add
    ActiveWorkbook.SaveAs sPath & sFilename, 52    'ou 53
End Sub