Public Sub prc()
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
With Sheets("Programmation Relevés")
.Range("G2:AT40").ClearContents
Cells(j, 7).Value = Cells(j, 3).Value + Cells(j, 5).Value
For i = 1 To Int(Cells(j, 4) - 1)
Cells(j, i + 7) = Cells(j, i - 1 + 7) + Cells(j, 3)
Next i
End With
Application.ScreenUpdating = True
End Sub