Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:D2")) Is Nothing Then Exit Sub
On Error Resume Next
ActiveSheet.ShowAllData
Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1:D2"), Unique:=False
End Sub
tu as fait un super boulot mais j'ai une contrainte,c'est de passer par un Userform et par 2 combobox. De plus les informations des combobox sont en text.