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