Problème avec Save As

Bonjour,

je souhaite coder une macro pour permettre à l'utilisateur de sauvegarder le workbook "Model workbook test" dans un classeur de son choix, en ayant la possibilité de le renommer (grace à une input box).

j'ai écrit ce code, mais j'ai un message d'erreur "type mismatch" ou "object required" selon les fois :

Private Sub cmdSave_Click()
Dim Destination As String, NewName As Variant

NewName = InputBox("Comment voulez vous appeler ce report")
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then  'The user pressed the OK button
         Destination = .SelectedItems(1)
    Else  'The user pressed the cancel button
        MsgBox "Pas de sélection"
        End
    End If
End With
Workbooks("Model workbook test").SaveAs Filename:=Destination \ NewName & ".xlsm", FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Je ne vois pas ou est l'erreur, elle se situe dans les 2 dernières lignes qui sont en jaune

Merci pour votre aide !