Bonjour,Re
On retombe dans un aléatoire avec conditions
Quand je disposerai d'un peu plus de temps je regarderai le problème d'affectation aux terrains
Function Versus(ByVal VS As Long) As Variant()
Dim J As Long, A As Long
A = Int(Sqr(2 * VS - 1.75) + 1.5)
J = VS - A * (A - 3) \ 2 - 1
Versus = Array(J, A)
End Function