Private Sub Worksheet_Calculate()
Dim Tot, i, Rep, Derlig
Columns("F:AE").EntireColumn.Hidden = False
For i = 31 To 6 Step -1
Derlig = Range("A" & Rows.Count).End(xlUp).SpecialCells(xlCellTypeVisible).Row + 1
Tot = Application.WorksheetFunction.CountA(Feuil1.Columns(i).SpecialCells(xlCellTypeVisible)) - 1
If Tot = 0 Then Columns(i).Hidden = True
Next
End Sub