Changement automatique d'un nom de fichier contenu dans macro

Bonjour le Forum,
J'aimerais savoir si c'est possible de pouvoir changer automatiquement le nom d'un fichier dans une macro en changeant le nom du fichier dans windows. Je vais m'expliquer à travers un exemple. J'ai ce code :

Sub Tapis_entre_déchargement_gravitaire_et_parc_à_sable()
Dim OFS As Office.FileSearch
Dim i As Integer
Dim adresse As String
Dim oApp As Object

Set OFS = Application.FileSearch
With OFS
.NewSearch
.FileType = msoFileTypeOfficeFiles
.FileName = "TAPIS ENTRE DECHARGEMENT GRAVITAIRE ET PARC A SABLE.doc"
.LookIn = "P:\"
.SearchSubFolders = True
.LastModified = msoLastModifiedAnyTime
If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending)> 0 Then

adresse = .FoundFiles(1)

Set oApp = CreateObject("Word.Application")
oApp.Documents.open (adresse)
oApp.Visible = True


Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

J'aimerais par exemple qu'en changeant le nom "TAPIS ENTRE DECHARGEMENT GRAVITAIRE ET PARC A SABLE.doc" en "TAPIS DECHARGEMENT ET PARC A SABLE.doc" sous windows, ma macro change automatiquement la ligne ".FileName = "TAPIS ENTRE DECHARGEMENT GRAVITAIRE ET PARC A SABLE.doc"" en ".FileName= "TAPIS DECHARGEMENT ET PARC A SABLE.doc""
Est-ce possible ?

Merci d'avance