Option Explicit
Sub Masque()
Dim X As Byte
For X = 1 To 100
If Cells(9, X) <> "OK/NOK" Then Columns(X).EntireColumn.Hidden = True
Next X
End Sub
Sub Masquer()
Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,J:J,K:K,L:L,M:M,O:O").Select
Selection.EntireColumn.Hidden = True
End Sub
Sub Afficher()
Columns("A:P").Select
Selection.EntireColumn.Hidden = False
End Sub
Sub a()
Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,J:J,K:K,L:L,M:M,O:O").EntireColumn.Hidden = _
Not Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,J:J,K:K,L:L,M:M,O:O").EntireColumn.Hidden
End Sub
Sub Masque()
For X = 1 To Application.WorksheetFunction.CountA(Rows(5))
If Cells(9, X) <> "OK/NOK" Then Columns(X).EntireColumn.Hidden = True
Next X
End Sub
For X = 5 To Application.WorksheetFunction.CountA(Rows(5))
For X = 5 To Application.WorksheetFunction.CountA(Rows(5)) + 5