bonjour
tu peux essayer ceci
Sub compte()
With Sheets(1)
lg = 2
Set classes = .Range(.Cells(2, 9), .Cells(.Cells(.UsedRange.Count, 9).End(xlUp).Row, 9))
classes.Select
For Each i In classes
For n = 1 To i.Offset(0, 2).Value
.Cells(lg, 2) = i
.Cells(lg, 4) = i.Offset(0, -1)
.Cells(lg, 5) = i.Offset(0, 1)
lg = lg + 1
Next
Next
End With
End Sub