Const CelluleAnnée = "$D$3"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = CelluleAnnée Then
Call FiltreTableau("Feuil1", "Tableau1", Me.Range(CelluleAnnée).Value)
Call FiltreTableau("Feuil2", "Tableau2", Me.Range(CelluleAnnée).Value)
End If
End Sub
Private Sub FiltreTableau(Feuille As String, Tableau As String, Année As String)
If Len(Année) > 0 Then
ThisWorkbook.Worksheets(Feuille).ListObjects(Tableau).Range.AutoFilter Field:=1, Criteria1:=Année
Else
ThisWorkbook.Worksheets(Feuille).ListObjects(Tableau).Range.AutoFilter...