Help urgent VBA

Bonsoir,
je vous serais réellement reconnaissante si vous pouviez m'aider ponctuellement.
voici mon code vba. le but etant de concaténer pour cet exemple seulement deux fichiers excel. quitte à le reprendre ele code pour n fichiers. merci bcp il y a une erreur quelquepart.
Sub asmae00()
'
' asmae00 Macro
' Macro enregistrée le 23/08/2007 par Default
'

'
ChDir "C:\Documents and Settings\AGNES\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\AGNES\Bureau\Classeur00.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
End Sub



Public Sub test()

Dim i As Integer, s As String
Workbooks("Classeur00.xls").Activate
Sheets("feuil1").Select
For i = 1 To 2 ' ici tu peut modifier le nombre de fichier à choisir (1)
s = Cells(i, 1).Value

Call f(s)
Next i

End Sub

Public Sub f(s As String)
Workbooks.Open Filename:=s
Dim sheet As Worksheet
Workbooks(s).Activate
For Each sheet In Worksheets
sheet.Select
sheet.Copy After:=Workbooks("Classeur00.xls").Sheets(3)
Workbooks(s).Activate
Next sheet
Workbooks(s).Close
End Sub




Application.WindowState = xlMinimized
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
Application.WindowState = xlNormal
Range("A1").Select
ActiveCell.FormulaR1C1 = "Classeur2"
Range("A2").Select
ActiveCell.FormulaR1C1 = "classeur10"
Range("C7").Select
ActiveWorkbook.Save
ActiveWorkbook.Save
Range("B6").Select
Sheets("Feuil1").Select
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Save
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ActiveWorkbook.Save
End Sub