Private Sub Worksheet_Change(ByVal Target As Range)
Dim p As Range, crit As Range
If Target.Count > 1 Then Exit Sub
If [E7] = "" Then Exit Sub
[B11:E1000].ClearContents
Set p = Range("filtre!$B$10:$E$10")
Set crit = Feuil3.Range("filtre!$K$1:$L$2")
Sheets("source2").Range("TableauSource[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=crit, CopyToRange:=p, Unique:=False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim v_AN, X
If Target.Address = "$D$7" Then
v_AN = InputBox("Choix de l'année de l'échéance ?", "Filtrage Echéance", Year(Date))
X = CDate("1/1/" & v_AN)
If Not IsDate(X) Then Exit Sub
[D7] = X
End If
End Sub