Bonjour,
j'espère que sa pourra vous aidez :
Sub test()
Dim nomColonne As Variant
For i = 2 To Range("IV1").End(xlToLeft).Column
nomColonne = Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1)
If Cells(4, i) <> Range("A" & 26) Then
Range(nomColonne & ":" & nomColonne).EntireColumn.Hidden = True
End If
Next i
End Sub