renommage classeur ouvert

Bonjour, Je voudrais renommer un classeur ouvert sans qu'il ne s'enregistre dans le répertoire de sauvegarde par défaut. J'ai écrit ceci : fichierem = Range("K5") & ".xlsm" ActiveWorkbook.SaveAs Filename:=fichierem Le renommage marche très bien classeur ouvert, par contre il s'enregistre...