Sub nombre_prise()
derLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To derLig
Cells(i, 2) = CLng(Cells(i, 2))
Cells(i, 4) = WorksheetFunction.SumIf(Range("C:C"), Cells(i, 3), Range("B:B"))
Next
End Sub
Ca convertit ta colonne B en nombre et ça fait la somme conditionnelle.