Sub comptage4()
Range("f2" ).Select
Range("t2:u15" ).ClearContents
Do While UCase(ActiveCell) <> ""
cpt = 0
    Do While UCase(Range("t2" ).Offset(cpt, 0)) <> "" And UCase(Range("t2" ).Offset(cpt, 0)) <> UCase(ActiveCell)
    cpt = cpt + 1
    Loop
    If Range("t2" ).Offset(cpt, 0) = "" Then
       Range("t2" ).Offset(cpt, 0) = ActiveCell.Value
    End If
    Selection.Offset(1, 0).Select
Loop
Range("t2" ).Select
 
Do While UCase(ActiveCell) <> ""
  cpt = 0
  Do While UCase(Range("f2" ).Offset(cpt, 0)) <> ""
    If UCase(Range("f2" ).Offset(cpt, 0)) = UCase(ActiveCell) Then
      Selection.Offset(0, 1) = 1 + Selection.Offset(0, 1)
    End If
   cpt = cpt + 1
   Loop
   Selection.Offset(1, 0).Select
   Loop
End Sub

Sub essai2()
Range("o2" ).Select
 
Do While ActiveCell <> ""
  cpt = 0
  Do While Range("o2" ).Offset(cpt, 0) <> ""
 
If ActiveCell >= 1000 Then
   Range("s2" ) = ActiveCell.Offset(0, 1) + Range("s2" )
   Else
   If ActiveCell < 1000 And ActiveCell >= 500 Then
   Range("s3" ) = ActiveCell.Offset(0, 1) + Range("s3" )
   Else
   If ActiveCell > 250 And ActiveCell < 500 Then
   Range("s4" ) = ActiveCell.Offset(0, 1) + Range("s4" )
   Else
   Range("s5" ) = ActiveCell.Offset(0, 1) + Range("s5" )
   
   End If
 
   End If
End If
cpt = cpt + 1
Loop
   Selection.Offset(1, 0).Select
Loop
End Sub