Option Explicit
Sub Filtrer()
Sheets("Filtre").Activate
Range(Range("b6"), Range("b6").End(xlDown)).Clear
With Sheets("Base")
.Range("b:b").AutoFilter Field:=1, Criteria1:="=*" & Range("c3").Value & "*", Operator:=xlAnd, Criteria2:="=*" & Range("e3").Value & "*"
.Range("b:b").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Copy Destination:=Sheets("Filtre").Range("b6")
.Range("b:b").AutoFilter Field:=1
End With
End Sub