Sub Test()
Dim X As Integer
For X = 2 To Cells(7, Columns.Count).End(xlToLeft).Column
If Cells(8, X) = "OUI" And Cells(9, X) > 0 Then
Columns(X).Hidden = False
Else
Columns(X).Hidden = True
End If
Next
End Sub
'---------------------------------------------------------------------
Sub essai()
Columns.Hidden = False
End Sub