With Worksheets("Data tab")
'.Range("D4").AutoFilter Field:=52, Criteria1:="<=110", Operator:=xlOr, Criteria2:="><"
'Dans le range on peut voir que c'est juste une valeur de test pour l'instant
'testez en activant la ligne ci-dessous, sans le criteria2 pour voir ce que cela produit
.Range("D5").AutoFilter Field:=52, Criteria1:=">=200"
End With