Sub classement()
tableau = Range("Données")
limites = Range("leslimites")
ligne = Range("leslimites").Row + 1
col = Range("leslimites").Column
For n = LBound(tableau, 1) To UBound(tableau, 1)
For m = LBound(tableau, 2) To UBound(tableau, 2)
For l = LBound(limites, 2) To UBound(limites, 2) - 1
If tableau(n, m) >= limites(1, l) And tableau(n, m) < limites(1, l + 1) Then
Cells(ligne, col + l) = tableau(n, m)
ligne = ligne + 1
End If
Next l
Next m
Next n
debligne = Range("leslimites").Row + 1
Cells(ligne + 1, 1) = "Nbre par intervalle"
For n = col + 1 To col + UBound(limites, 2) - 1
Cells(ligne + 1, n).FormulaLocal = "=LIGNE()-" & debligne & "-NB.SI(" & Cells(debligne, n).Address & ":" & Cells(ligne, n).Address & ";"""")"
Next n
End Sub