Sub Compte()
Dim T(), T2(), T3(), s As Variant, i As Long, j As Long
Dim mondico As Object, Plage As Range, Nb As Double
With Sheets("Feuille1")
Set Plage = .Range("A2:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To Plage.Rows.Count
mondico(Plage(i, 1) & " " & Plage(i, 2)) = mondico(Plage(i, 1) & " " & Plage(i, 2))
Next i
T = mondico.keys
ReDim T2(UBound(T))
For i = LBound(T) To UBound(T)
s = Split(T(i))
T2(i) = CDbl(s(0))
Next i
ReDim T3(1 To Plage.Rows.Count)
For i = 1 To UBound(T3)
For j = LBound(T2) To UBound(T2)
If Plage(i, 1) = T2(j) Then Nb = Nb + 1
Next j
T3(i) = Nb: Nb = 0
Next i
'.Range("C2:C" & Plage.Rows.Count + 1).ClearContents 'si besoin d'effacer les anciennes valeurs colonne C
.Range("C2").Resize(UBound(T3)) = Application.Transpose(T3)
End With
End Sub