Liste déroulante associée

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
If Target.Address = "$E$10" Then 'condition 1 : si le changement a lieu dans E10
    If Target.Value <> "" Then 'condition 2 : si E10 n'est pas vide
        Range("A16").AutoFilter Field:=1, Criteria1:=Target.Value 'filtre le tableau par rapport à la colonne "Usines" avec E10 comme critère
    Else 'sinon
        Range("A16").AutoFilter Field:=1 'supprime le critère (laisse apparaître toutes les usines)
    End If 'fin de la condition 2
End If 'fin de la condition 1
If Target.Address = "$E$11" Then 'condition 1 : si le changement a lieu dans E11
    If Target.Value <> "" Then 'condition 2 : si E11 n'est pas vide
        Range("A16").AutoFilter Field:=2, Criteria1:=Target.Value 'filtre le tableau par rapport à la colonne "Années" avec E11 comme critère
    Else 'sinon
        Range("A16").AutoFilter Field:=2 'supprime le critère (laisse apparaître toutes les années)
    End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub