Sub lisser()
Dim cumul As Integer
cumul = 0
i = 3
Col = 8
Do Until Cells(2, 8).Value + Cells(i, 7).Value >= 105
cumul = cumul + Cells(i, 7).Value
Worksheets("Feuil3").Cells(i, Col).Value = "X"
i = i + 1
Loop
Col = Col + 1
If Cells(2, 8).Value <> 0 Then
Do Until Cells(2, Col).Value + Cells(i, 7).Value >= 105
cumul = cumul + Cells(i, 7).Value
Worksheets("Feuil3").Cells(i, Col).Value = "X"
i = i + 1
Loop
End If
Col = Col + 1
If Cells(2, 8).Value <> 0 Then
Do Until Cells(2, Col).Value + Cells(i, 7).Value >= 105
cumul = cumul + Cells(i, 7).Value
Worksheets("Feuil3").Cells(i, Col).Value = "X"
i = i + 1
Loop
End If
Col = Col + 1
If Cells(2, 8).Value <> 0 Then
'************
'PB à partir d'ici
'************
Do Until Cells(2, Col).Value + Cells(i, 7).Value >= 105
cumul = cumul + Cells(i, 7).Value
Worksheets("Feuil3").Cells(i, Col).Value = "X"
i = i + 1
Loop
End If
Col = Col + 1
If Cells(2, 8).Value <> 0 Then
Do Until Cells(2, Col).Value + Cells(i, 7).Value >= 105
cumul = cumul + Cells(i, 7).Value
Worksheets("Feuil3").Cells(i, Col).Value = "X"
i = i + 1
Loop
End If
Col = Col + 1
If Cells(2, 8).Value <> 0 Then
While Cells(2, Col).Value + Cells(i, 7).Value < 105
cumul = cumul + Cells(i, 7).Value
Worksheets("Feuil3").Cells(i, Col).Value = "X"
i = i + 1
Wend
End If
End Sub