Renommer des fichiers en VBA

Bonjour à tous,

A partir d’un fichier Excel, dans lequel j’ai :
- Colonne A le nom du répertoire d’origine qui n’est pas toujours le même.
- Colonne B le nom du fichier à déplacer.
- Colonne C le nom du répertoire de destination qui lui est identique pour tous les fichiers copiés.
Je copie le fichier xxxx.jpeg (colonne B) du répertoire d’origine vers le répertoire de destination. Pour cela j’utilise la macro suivante :

Sub Copie_Fichier ()
' Copie les fichiers des photos pour le diaporama dans le répertoire destination.

Dim fso As Object, Rep_Départ, Rep_Arrivée, Fichier_Copié

Set fso = CreateObject("Scripting.FileSystemObject")
Rep_Arrivée = Range("C2")
Range("A2").Activate
Do Until ActiveCell = ""
Rep_Départ = ActiveCell
Fichier_Copié = ActiveCell.Offset(0, 1)
fso.CopyFile Rep_Départ & "\" & Fichier_Copié, Rep_Arrivée & "\" & Fichier_Copié
ActiveCell.Offset(1, 0).Activate
Loop
End Sub

Cela fonctionne parfaitement.
Maintenant je souhaiterais par la même occasion renommer le fichier déplacé de manière à obtenir un nom de fichier de ce type :
- Une partie fixe commune à tous les fichiers.
- Une partie variable dépendante du nombre de ligne contenu du fichier contenant les fichiers à déplacer.
- Une nouvelle partie fixe identique pour tous les fichiers.

Pour obtenir un nom de fichier ressemblante à ça : XXXXXX1Y.Jpeg
Je coince sur la boucle à mettre en place dans ma macro. Comment Faire ?

Merci d’avance à tous ceux qui se pencheront sur mon problème.

Cordialement.
Mistral