XL 2016 Déplacer, renommer

Bonjour,

J'ai un fichier Excel pour lequel j'enregistre le fichier dans un dossier avec un nom spécifique dans un répertoire déterminée avec le code suivant :

Dim Chemin As String, Fichier As String

Chemin = "C:\TEST\@TEST\Entrées\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Fichier = ActiveSheet.Range("B3") & " " & ActiveSheet.Range("D3") & " " & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & " - " & ActiveSheet.Range("B8") & " " & ".xls"
ActiveWorkbook.SaveCopyAs Chemin & Fichier
returnValue = MsgBox(" Fiche envoyée" & strSearchString & " ** ", vbOKOnly, "Message")
TextBox1 = ""

End Sub


J'ai ensuite une 2e macro qui permet de déplacer ce fichier dans un autre dossier:

Dim Nomfichier$, DestinationFile$
Nomfichier = ThisWorkbook.FullName
DestinationFile = "C:\TEST\@TEST\sorties\"
ThisWorkbook.SaveAs (DestinationFile & ThisWorkbook.Name)
Kill Nomfichier
End Sub

Je souhaiterais que lors de cette opération le nom du fichier initial soit conservé mais en y ajoutant un mot "TEST" devant le nom du fichier.

Je n'arrive pas à le faire, pourriez vous m'aider? (je vous précise que je débute en vba et que tout ce que j'ai fait l'a été en ré-adaptant des codes trouvés sur internet)

Par avance merci