Sub Masquer()
Dim i As Integer, Cel As Range, Col As Range, Vide As Boolean
Application.ScreenUpdating = False
Cells.Columns.Hidden = False
For i = 6 To 114
Vide = True
Set Col = Feuil6.Cells(7, i).Resize(120, 1)
For Each Cel In Col.SpecialCells(xlCellTypeVisible)
If Not Cel = "" Then Vide = False: Exit For
Next
Columns(i).Hidden = Vide
Next i
Application.ScreenUpdating = True
End Sub