ma macro plante si je sauve sous un autre nom

bonsoir a tous
grace a beaucoup d'entre vous j'ai enfin je devrais dire nous car moi a part des ctrl+C ctrl+V j'ai pas fait grand chose avons mis au point une macro dont voici le code

Sub CréationFiche1()


Workbooks.Open Filename:= _
"C:\Documents and Settings\tzimmermann\Bureau\REFONTE FICHE VISIONNAGE\SPACE TEST\visio.xls"
Workbooks("visio.xls").Sheets("Modele").Range("I4") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("C8")
Workbooks("visio.xls").Sheets("Modele").Range("C4") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("D8")
Workbooks("visio.xls").Sheets("Modele").Range("F2") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("C2")
Workbooks("visio.xls").Sheets("Modele").Range("I5") = Workbooks("FicheAtWork.xls").ActiveSheet.Range("E8")
Workbooks("visio.xls").Sheets("Modele").Copy After:=Workbooks("FicheAtWork.xls").Sheets(Sheets.Count)
Workbooks("FicheAtWork.xls").ActiveSheet.Name = Range("I4") & " " & Range("C4")
Workbooks("visio.xls").Close False

End Sub

le probleme c'est que la macro fonctionne je ne change pas le nom du fichier de base FicheAtWork.xls mais au moment ou je le sauve sous un autre nom ben plus rien ne fonctionne alors je ne sais pas trop comment faire j'avoue que je ne sais meme pas si c'est faisable ...

si vous avez une petite idée ce serais avec plaisire

merci
thibaut