Bonjour,
dans le module de Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B4")) Is Nothing Then
Range("J14:O20").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B3:B4"), Unique:=False
End If
End Sub
C'est voulu d'avoir des classeurs .xls alors que tu es sur 2010 ?
Tu te prives de certaines améliorations.
eric