Sub Tirage()
Dim r&, c&
Dim T(5)
Sheets("B").Cells(1, 8)=0
NewTirage:
Application.Calculation = xlManual
Sheets("A").Activate
For r = 1 To 1000
For c = 1 To 150
Cells(r, c) = Int((6 * Rnd) + 1)
Next
Next
For r = 1 To 1000
For c = 1 To 150
i = Cells(r, c)
T(i - 1) = T(i - 1) + 1
Sheets("B").Cells(r, i) = T(i - 1)
Next
Erase T
Next
Sheets("B").Activate
For r = 1 To 1000
For c = 1 To 6
If Cells(r, c) < 13 Then
Sheets("B").Cells(1, 8) = Sheets("B").Cells(1, 8) + 1
GoTo NewTirage
End If
Next c
Next r
Sheets("B").Cells(1, 9) = " tirages successifs pour atteindre l'objectif"
MsgBox CStr(Sheets("B").Cells(1, 8)) & Sheets("B").Cells(1, 9)
Application.Calculate
End Sub