J'ai changé des données (valeurs de 1 à 12 sans le 0 qui posait souci), je voudrais initialiser le solveur pour faire F9 tant que S3 n'est pas égal ou supérieur à 8 ?
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Byte
Dim Resultat As Double
Application.ScreenUpdating = False
Do
For i = 6 To 17
Cells(4, i) = Rnd
Next
Resultat = Application.Sum([données])
Loop Until Resultat >= 8
[S3] = Application.Sum([données])
End Sub