Sub Masquer_questions_non_significatives()
Application.ScreenUpdating = False
With Range("D21:D27")
.AutoFilter Field:=1, Criteria1:="=moins important*", Operator:=xlAnd, _
Field:=2, Criteria1:="=Non*"
.AutoFilter Field:=3, Criteria1:=">30", Operator:=xlAnd
End With
Application.ScreenUpdating = True
End Sub