Bonjour CDB, le forum,
Un essai....de ce que j'ai compris...
Sub test()
Dim i As Long, j As Long
dl = Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 5 To 20
Columns(i).Hidden = False
If Cells(4, i) <> Cells(4, 4) Then Columns(i).Hidden = True
If Cells(4, 4) Like "ALL" Then Columns(i).Hidden = False
Next i
For j = 5 To 13
Rows(j).Hidden = False
If Cells(j, 4) <> Cells(4, 4) Then Rows(j).Hidden = True
If Cells(4, 4) Like "ALL" Then Rows(j).Hidden = False
Next j
Application.ScreenUpdating = True
End Sub
Cordialement,