Bonjour,
En fait, la raison de ton problème est simple : si l'utilisateur clique sur annuler, la méthode Application.GetSaveAsFilename renvoie 'False' ou 'Faux' selon la version.
Si tu lance l'enregistrement sans test préalable, la méthode SaveAs va t'enregistrer le fichier sous False.xls.
Pour y remédier :
Private Sub CommandButton1_Click()
monFichierDestination = Application.GetSaveAsFilename(fileFilter:='Classeur Microsoft Excel (*.xls), *.xls')
If (monFichierDestination <> 'False') Then
ActiveWorkbook.SaveAs FileName:=monFichierDestination, FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
End If
End Sub