Sub es()
Dim t(), i As Long
Application.ScreenUpdating = 0
t = Feuil1.Range("i3:o" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(t)
t(i, 3) = 0: t(i, 4) = 0: t(i, 5) = 0: t(i, 6) = 0: t(i, 7) = 0
If t(i, 1) > 0 And t(i, 1) <= 1 Then t(i, 3) = 1
If t(i, 1) > 1 And t(i, 1) <= 3 Then t(i, 4) = 1
If t(i, 1) > 3 And t(i, 1) <= 5 Then t(i, 5) = 1
If t(i, 1) > 5 And t(i, 1) <= 10 Then t(i, 6) = 1
If t(i, 1) > 10 Then t(i, 7) = 1
Next i
Feuil1.Range("i3").Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub