Sub masquer_colonne1()
'
' masquer_colonne Macro
' Macro enregistrée le 5/05/2011 par thierry
'
'
Sheets("Dupont A").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Dupont A", "Dupont B", "Dupont C", "Dupont D", "Dupont E", _
"Dupont F", "Dupont G", "Dupont H", "Dupont I", "Dupont J", "Dupont K", _
"Dupont L", "Dupont M", "Dupont N", "Dupont O", "Dupont P", "Dupont Q", "Dupont R", _
"Dupont S", "Dupont T", "Dupont U", "Dupont V", "Dupont W", "Dupont X", "Dupont Y", _
"Dupont Z", "Remplacement 1", "Remplacement 2", _
"Remplacement 3", "Remplacement 4", "Remplacement 5", "Remplacement 6")).Select _
Replace:=False
Columns("T:AK").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Sheets("Horaire").Select
End Sub