Renommer un classeur actif

Bonjour,

Voilà mon code :

Sub RenommeFichier()
    Dim AncienNom As String, NouveauNom As String
 
    AncienNom = "K:\VIREMENTS\VIREMENTS ECHEANCE 02.02.2015.xlsx"
    NouveauNom = "K:\VIREMENTS\VIREMENTS ECHEANCE 02.02.2015 (effectués).xlsx"
 
    'Vérifie si le fichier à renommer existe.
    If Dir(AncienNom) = "" Then
    MsgBox ("Le fichier à renommer n'existe pas")
    Exit Sub
    End If
    'Renomme le fichier
    Name AncienNom As NouveauNom
End Sub

Voilà le problème, il est impossible de lancer la macro via le classeur ouvert qui est pourtant celui que je veux renommer puisqu'il est ouvert (https://excel.developpez.com/faq/?page=FichiersDir#RenommeFichier voir la remarque)

Une idée pour contourner le problème?

Par contre, la macro est sur PERSONNAL.XLSB parce qu'elle doit pouvoir être utilisable par tous les classeurs excel.

Merci de votre aide.

Cordialement.