Sub a()
Dim ENTET, Bornes, i, x, y
ENTET = Array("[0-5]", "[5-10]", "[10-15]", "[15-20]")
Bornes = Array([{0,5}], [{5,10}], [{10,15}], [{15,20}])
Application.ScreenUpdating = False
For i = 0 To UBound(Bornes)
x = Bornes(i)(1): y = Bornes(i)(2)
Range("C2").FormulaR1C1 = "=AND(RC[-1]>" & x & ",RC[-1]<=" & y & ")"
Range("A1:B11").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:C2"), CopyToRange:=Range("E1").Offset(, i * 2), Unique:=False
Next
[F:F,H:H,J:J,L:L].Delete -4159: [E1:H1] = ENTET: [C2].Clear
End Sub