Sub Copie_Menu_x70()
'
' Copie_Menu Macro
' Macro enregistrée le 12/02/2009 par Patbeu
'
'
Sheets("E1").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=46
Sheets(Array("E1", "E2", "E3", "E4", "E5", "E6", "E7", "E8", "E9", "E10", "E11", "E12", _
"E13", "E14", "E15", "E16", "E17")) _
.Select
Sheets("E1").Activate
Sheets(Array("E18", "E19", "E20", "E21", "E22", "E23", "E24", "E25", "E26", "E27", "E28", "E29", "E30", "E31", "E32", "E33", "E34", "E35", "E36", _
"E37", "E38", "E39", "E40", "E41", "E42", "E43", "E44", "E45", "E46", "E47", "E48", "E49", _
"E50")).Select Replace:=False
Sheets(Array("E51", "E52", "E53", "E54", "E55", "E56", "E57", "E58", "E59", "E60", "E61", _
"E62", "E63", "E64", "E65", "E66", "E67", "E68", "E69", "E70")).Select Replace:=False
ActiveWindow.Zoom = 50
'ligne entete menu
Range("X162:X168").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-160]C[-22]"
Range("X145:X156").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-143]C[-10]"
Range("X139:X143").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-137]C[3]"
'code client
'ligne adresse
Range("Z140:Z141").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-136]C[3]"
Range("Z145:Z146").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-141]C[-2]"
Range("Z157").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-153]C[-13]"
Range("Z168").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-164]C[-24]"
Range("AB168").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-162]C[-26]"
Range("AB164").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-158]C[-22]"
Range("AB156:AB157").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-150]C[-15]"
Range("AB153").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-147]C[-11]"
Range("AB146").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-140]C[-4]"
Range("AB140:AB141").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-134]C[1]"
Range("AD140:AD141").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-132]C[-1]"
Range("AD146").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-138]C[-6]"
Range("AD148:AD165").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-140]C[-25]"
Range("AD166:AD168").Select
ActiveCell.FormulaR1C1 = "=MENU!R[-158]C[-28]"
'lignes date heure
'+1300 autres lignes du meme type
Sheets("TOT").Select
End Sub