retourner des résultats dans des cell

[Reeaz]

Rebonjour à tous!
Voici mon code:

Public x

Sub calendrier()

Dim date1 As Variant
Dim date2 As Variant
Dim yf As Variant

'date1 = "16/1/2003"
'date2 = "16/12/2003"
date1 = InputBox("Entrez la date à laquelle vous évaluez votre option ", "Date d'évaluation", Date)
date2 = InputBox("Entrez la date de maturité ", "Date de maturité", Date)
yf = InputBox("Entrez le pas de l'option", "Pas de l'option")
DateDepart1 = CDate(date1)
DateMaturite2 = CDate(date2)


x = DateDepart1

While x < DateMaturite2
x = DateAdd("d", yf, x)
If DateMaturite2 - x < 100 Then Exit Sub
'MsgBox x


Wend

End Sub


Sub IncrementerNombreJours()

'selection de chaque cellule de la collone
'Renvoi du résultat sur la cellule


fin = Range("c8").End(xlDown).Row
For i = 8 To fin
'Cells(i, 3).Select
Call calendrier
Cells(i, 2).Value = x
Next i

End Sub


La premiere proc fonctionne très bien, et me renvoie des valeurs ss forme de msgbox, par exple 10 resultats implique 10 msgbox. Je voudrais en fait que chaque résultat aille s'afficher dans une cell, dans tt une collonne par exemple, ss voir ttes les msg box intermediaires.
Est ce que qqun a une idée?

Merci