Sub masquer()
Dim K As Long ' numéro de la colonne
Dim NbrCol As Long, Nbrlig As Long
NbrCol = Range("IV7").End(xlToLeft).Column ' numéro de dernière colonne
Nbrlig = Range("G65536").End(xlUp).Row ' numéro de dernière ligne du tableau
For K = NbrCol To 9 Step -1 ' I est l colonne 10 EQ la 147
If Evaluate("=SUBTOTAL(3," & Range(Cells(8, K), Cells(Nbrlig, K)).Address & ")") = 0 Then
Columns(K).Hidden = True
End If
Next K
End Sub