Sub masque1()
'
' masque1 Macro
'
'
ActiveWindow.ScrollColumn = 3
Range("E:E,H:H,K:K,N:N,Q:Q,T:X").Select
Range("T2").Activate
Selection.EntireColumn.Hidden = True
End Sub
Sub affiche()
'
' affiche Macro
'
'
Range("E:E,H:H,K:K,N:N,Q:Q,1:1048576").Select
Range("T2").Activate
Selection.EntireColumn.Hidden = False
Range("I10").Select
End Sub