Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
For Each Wsh In Worksheets(Array("BIERES SPECIALES", "VINS.CHAMPAGNES", "SOFT.ALCOOL.CAFE", "CDE EXCEPTIONNELLE"))
With Wsh
.Range("B2:S" & .Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2, Criteria1:=Target
End With
Next Wsh
End If
End Sub