Bonjour,
ton incrément était juste mal placé
For Each Drd In Cheval.rapports
.Cells(i, 3).Value = Drd.libelle
.Cells(i, 4).Value = Drd.dividende
.Cells(i, 5).Value = Drd.dividendePourUnEuro
.Cells(i, 6).Value = Drd.combinaison
.Cells(i, 7).Value = Drd.nombreGagnants
.Cells(i, 8).Value = Drd.dividendePourUneMiseDeBase
.Cells(i, 9).Value = Drd.dividendeUnite
i = i + 1
Next