Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 16/02/2011 par famille BIRRO
'
' Touche de raccourci du clavier: Ctrl+Maj+A
'
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ActiveCell.FormulaR1C1 = "arch"
'Sheets("Fact 1").Select
sht.Select
sht.Copy Before:=Workbooks("arch.xls").Sheets(1)
Next sht
'
'Sheets("Fact 1").Copy Before:=Workbooks("arch.xls").Sheets(1)
End Sub