Macro pour renommer fichiers

Bonjour,

J'ai une centaine de fichier à renommer.

Je dois ajouter "FR" à la fin de chaque nom de fichier.

Voici l'exemple ci dessous avec ce que je veux en 1ère ligne:

Est-il possible à l'aide d'une macro de réaliser cela?

Merci d'avance pour votre aide.

Bonjour,

à tester,

Sub test()
Dim Rep As String, NomFich As String, NewName As String
Rep = "C:\Users\isabelle\Documents\test\"                 'à adapter

    NomFich = Dir(Rep & "*.pdf", 2)
        Do While NomFich <> ""
            NewName = Split(NomFich, ".")(0) & "FR.pdf"
            Name Rep & NomFich As Rep & NewName
            NomFich = Dir()
        Loop
End Sub