Sub SelectCol()
Dim mesbellescolonnes As Variant, nbcol As Byte, i As Byte
Dim plage As Range
Dim colplage As Byte 'le Nº de la colonne sera toujours < 255
mesbellescolonnes = Array(-1, 2, 3) 'on n'a qu'à introduire la distance (en colonne(s)) qui sépare la 1ère colonne de la plage nommée de celle que l'on veut occulter-désocculter
'(négatif à gauche / positif à droite)
nbcol = UBound(mesbellescolonnes) 'nombre de colonnes concernées
For i = 1 To nbcol
colplage = [ListeItems3].Column + mesbellescolonnes(i)
Set plage = Union(Columns(colplage), IIf(plage Is Nothing, Columns(colplage), plage))
Next
plage.EntireColumn.Hidden = compt
End Sub