Renommer et deplacez fichier word en vba

Bonjour,

voila j ai un macro vba ci-dessus qui permet de enregistre le fichier actif dans un dossier s'apel ( fichier excel )et il a comme nom le contenu des celulle C1 et C200 ( qu'ils contient des date ) ,
et mon probleme je cherche a copie ou bien deplacez un fichier word ferme qui se trouve dans un dossier au bureau et le deplacez un autre qui s appel ( fichier word ) et aura comme nom aussi le contenu des celluls C1 et C200.


macro :
Dim chr1 As String
Dim chr2 As String

chr1 = Cells(1,3)
chr2 = Cells(200,3)

ChDrive "C"
ChDir "C:\Users\Toshiba\Desktop\Fichier Excel"

ActiveWorkbook.SaveAs Filename:="du" & Day(chr1) & "-" & Month(chr1) & "-" & Year(chr1) & " Au " & Day(chr2) & "-" & Month(chr2) & "-" & Year(chr2)

et merci d avance pour votre aide :)