Sub Essai1()
Col = Array(2, 4, 6, 8)
For C = 0 To UBound(Col)
ActiveSheet.Columns(Col(C)).EntireColumn.Hidden = True
Next C
End Sub
Sub Essai2()
ActiveSheet.Range("B:B,D:D,F:F,H:H").EntireColumn.Hidden = True
End Sub
Sub Essai3()
Union([B1], [D1], [F1], [H1]).EntireColumn.Hidden = True
End Sub
Sub Essai4()
Union(Cells(1, 2), Cells(1, 4), Cells(1, 6), Cells(1, 8)).EntireColumn.Hidden = True
End Sub