Supprimer une réf à un autre classeur

Boujour à Tous

Mon problème est le suivant :

Lorsque je copie une feuille depuis un classeur "Base" dans un autre fichier "Titi" en conservant les formules, je récupère plein de références à l'ancien classeur "Base" du genre :

=INDEX('[Base.xlsm]BW'!$F:$F;EQUIV(CONCATENER($A10;$C10;E$2);'[Base.xlsm]BW'!$G:$G;0))

Je voudrais les supprimer et que Titi calcule tout grâce à ses feuilles à lui (il a aussi un onglet BW).

Donc je pensais remplacer [Base.xlsm] par rien dans les formules tout simplement et du coup avoir :

=INDEX('BW'!$F:$F;EQUIV(CONCATENER($A10;$C10;E$2);'BW'!$G:$G;0))

Mais lorsque j'emploie ce code :

Workbooks.Open Filename:="K:\DIDIER D\Titi.xlsx"

Workbooks("Base.xlsm").Sheets("CA par taux").Rows("4:174").Copy Destination:=Workbooks("Titi.xlsx").Sheets("CA par taux").Range("A4")

Range("A4:AA174").Replace What:="[Base.xlsm]", Replacement:="", LookAt:=xlPart

Cela ne fonctionne pas et les [Base.xlsm] sont toujours là dans Titi

Par contre j'en suis pas loin car quand je la relance depuis le Titi qui s'est ouvert ca fonctionne.

Comment faire pour que cela fonctionne du premier coup ?

Merci beaucoup pour votre aide

Bonjour,

Un essai ....

Sub Macro1()

Workbooks.Open Filename:="K:\DIDIER D\Titi.xlsx"
   Workbooks("Base.xlsm").Sheets("CA par taux").Rows("4:174").Copy Destination:=Workbooks("Titi.xlsx").Sheets("CA par taux").Range("A4")

   Windows("Titi.xlsx").Activate
   Application.CutCopyMode = False
   Cells.Replace What:="[Base.xlsm]", Replacement:="", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                 ReplaceFormat:=False
   Windows("Base.xlsm").Activate
End Sub

ric