Décrémentation sur Excel

Bonjour,

Je souhaite réaliser une incrémentation par ordre décroissant. Ainsi, si je rentre la valeur 15 dans la cellule C5 de la feuille "Saisie", le programme doit pouvoir réaliser une décrémentation à partir de cette valeur en colonne C de la feuille "Calculs". Voici le programme en VB réalisé à ce stade. Seulement il s'agit d'incrémentation et je ne sais pas comment faire pour faire dans l'ordre inverse.

Merci de me répondre,

F-RAGU

Sub increment()
Dim i As Integer, j As Integer, k As Integer
i = Sheets("Saisie").Range("C5").Value
With Sheets("Calculs")
.Columns("C:C").ClearContents
For j = 2 To 10 * i
.Range("C" & j).Value = (j / 10) - 0.1
Next
.Range("C1").Value = 0
.Range("C65536").End(xlUp).Offset(1, 0).Value = i
End With
End Sub

Configuration: Windows 2003
Firefox 3.5.3