Masquer les colonnes vierges avec une macro

Option Explicit

Sub Masque()
Dim X As Integer
For X = 2 To 10
If Cells(25, X) = 0 Then Cells(25, X).EntireColumn.Hidden = True
Next
End Sub

Sub Masque()
Dim col As Range
For Each col In Columns("B:J")
If Application.CountA(col) = 2 Then col.Hidden = True
Next
End Sub

Sub MasqueColonnne()
Dim Ligne As Long, Colonne As Long, i As Long
    Application.ScreenUpdating = False
    With Range("A4").CurrentRegion
        Ligne = .Rows.Count
        Colonne = .Columns.Count
        For i = 1 To Colonne
            .Cells(Ligne, i).EntireColumn.Hidden = False
            If .Cells(Ligne, i).Value = 0 Then .Cells(Ligne, i).EntireColumn.Hidden = True
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Sheets("Prévisionnel").

Option Explicit

Sub Masque()
Dim X As Integer
Application.ScreenUpdating = 0
For X = 2 To 172
If Sheets("Prévisionnel").Cells(127, X) = 0 Then Sheets("Prévisionnel").Cells(127, X).EntireColumn.Hidden = True
Next
End Sub

Sub Affiche()
Dim X As Integer
Application.ScreenUpdating = 0
For X = 2 To 172
Sheets("Prévisionnel").Cells(127, X).EntireColumn.Hidden = False
Next

End Sub