sec = Combosec.Value
max = Sheets("bdd " & sec).Range("A65536").End(xlUp).Row
'filtre élaboré
Sheets("bdd " & sec).Activate
Range("B1:F" & max).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("cachee").Range("B23:F24"), Unique:=False