Filtre colonne

Bonjour le forum,

J'aimerais un code permettant de filtrer 1 ligne.

Ci joint un exemple qui je l'espère sera assez explicite.

D'avance merci pour votre aide

Bonjour CDB, le forum,

Tu souhaites masquer les colonnes qui ne répondent pas au critère en D4 ?

Un essai

Même chose sans le bouton

Cordialement,

Merci beaucoup

Bonjour,

Est-il possible d'adapter le code si je rajoute des éléments de D10:D13

Voir ci joint

D'avance merci pour votre aide3

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,

Super merci beaucoup