Merci pour cette proposition. En effet cela fonctionne pour les étages.
N'y connaissant pas grand chose en VBA, j'ai tenté de reproduire le code pour ma colonne façade ...ça ne marche pas. J'avoue avoir du mal à traduire en français les ligne de code.
Voici ma tentative:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$15" Then Exit Sub
If Target.Address <> "$C$15" Then Exit Sub
ActiveSheet.Range("$A$1:$E$12").AutoFilter Field:=2, Criteria1:=Target.Value
ActiveSheet.Range("$C$1:$C$12").AutoFilter Field:=2, Criteria2:=Target.Value
End Sub