Sub Masquer1()
Dim t, i
t = Timer
Application.ScreenUpdating = False
Columns.Hidden = False 'RAZ
For i = 2 To 16384 Step 2 '1 colonne sur 2
Columns(i).Hidden = True
Next
MsgBox Timer - t
End Sub
Sub Masquer2()
Dim t, i
t = Timer
Application.ScreenUpdating = False
Columns.Hidden = False 'RAZ
For i = 2 To 16384 Step 2 '1 colonne sur 2
s = s & "," & Cells(1, i).Address(0, 0)
If Len(s) > 245 Then
Range(Mid(s, 2)).EntireColumn.Hidden = True
x = x + 1
s = ""
End If
Next
If Len(s) Then Range(Mid(s, 2)).EntireColumn.Hidden = True: x = x + 1
MsgBox Timer - t & vbLf & x & " blocs"
End Sub