Re : Calculer les combinaisons
Et le script qui plante ici en gras
Private Sub toto(f As Worksheet)
Const a& = 1000, b& = 99, c& = 3
Dim e&, i&, j&, s&, t&, u&(), w
ReDim m(3 To 10), n&(3 To 10)
ReDim p&(1 To 11, 10), q&(10)
ReDim r&(c - 1), v(c - 1)
For i = 0 To c - 1: v(i) = Array(0)...