Bonjour Coskippy, bonjour à tous,

Tu dois pouvoir utiliser un filtre élaboré, par exemple dans ton classeur joint j'ai mis les deux critères feuille "REF C2" cellules C1:D2 puis ce code affecté au bouton bleu "Go":

Option Explicit
Sub filtre()

Dim dlig As Long

With ActiveSheet
    'Calcule la dernière ligne de la feuille pour effacer
    'le contenu de la plage filtrée
    dlig = .Cells(Rows.Count, 1).End(xlUp).Row
    If dlig > 8 Then .Range("A8:N" & dlig).ClearContents
    'Lance le filtre:
    Sheets("Affaires").Range("A1").CurrentRegion.AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=.Range("C1:D2"), CopyToRange:=.Range("A8:N8")
End With
End Sub

Vois si cela peut t'aider,

Bien à toi,

mth