Bonjour Steelson, le forum
Merci pour ta réponse, je vais garder ce fichier, mais excuse ma mauvaise explication,
je voulais extraire que les combinaisons qui ont les 2 numéros en commun.
Hors votre fichier extrait aussi bien les combi qui ont le 11 ou le 5 ou les 2.
merci
dans ce cas, en respectant ta méthode
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&
If Not Application.Intersect(Target, Range("W1:X1")) Is Nothing Then
Application.ScreenUpdating = False
Lg = Range("b" & Rows.Count).End(xlUp).Row
Range("a3:a" & Lg).FormulaR1C1 = _
"=IFERROR(MATCH(R1C23,RC[1]:RC[20],0)+MATCH(R1C24,RC[1]:RC[20],0),0)"
Range("a2") = "=a3>0" 'critère
Range("a2:u" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("a1:a2"), CopyToRange:=Range("z2:as2"), Unique:=False
Range("a2:a" & Lg).ClearContents
End If
End Sub