Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/08/2007
'
'
ChDir "C:\...\...\..."
ActiveWorkbook.SaveAs Filename:= _
"C:\...\....\...\" & Worksheets("Feuil1").Range("A1").value & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub