Filtre à partir d'un critère

Bonjour à Tous

Je veux ,suivant un numéro de semaine défini dans une cellule ,créer un filtre ,sur une ligne, correspondant

à ce n° de semaine.

Je vous ai joint un fichier afin de comprendre plus facilement ma demande.

Merci d'avance

Jeff

Bonsoir,

Un exemple à tester

Cordialement

Bonjour

C'est super.Cela correspond à mon attente.

Je vais pouvoir finir l'ensemble de ma maccro .

Cdlt

jeff

Bonjour à tous,

Autre exemple

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&
    If Not Application.Intersect(Target, Range("a4")) Is Nothing Then
        Application.ScreenUpdating = False
        On Error Resume Next
        ActiveSheet.ShowAllData                                 'libère les filtres
        On Error GoTo 0
            If Target.Count > 1 Or Target = "" Then Exit Sub
        Lg = Range("a" & Rows.Count).End(xlUp).Row
        Range("k2") = "=b9=$a$4"                                'critère
        Range("a8:j" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("k1:k2"), Unique:=False
        Range("k2").ClearContents
        If Range("a65000").End(xlUp) = "Nom" Then MsgBox ("rien cette semaine !")
    End If
End Sub

Amicalement

Claude