Masquer colonnes fichier Excel 2010

Bonjour

je reçois chaque mois un fichier.csv avec 123 colonnes, je voudrais masquer automatiquement 114 colonnes pour n'en laisser apparaître que 9.

Les colonnes:

B

O

AF

AI

AO

AP

AU

BL

BO

merci pour vos aides

Bonjour,

Essaie ainsi :

Sub Vis9Col()
    Dim Cvis, i%
    Cvis = Array(2, 15, 32, 35, 41, 42, 47, 64, 67)
    With ActiveSheet
        Application.ScreenUpdating = False
        .Columns("A:DS").Hidden = True
        For i = 0 To UBound(Cvis)
            .Columns(Cvis(i)).Hidden = False
        Next i
        Application.ScreenUpdating = True
        .Range("B1").Select
    End With
End Sub

Cordialement.