Macro qui fait un calcul 100 fois et copie/colle le résultat

bonjour,

étant toujours novice en VBA ^^,

j'ai des idées mais j'ai aussi besoin d'aide pour les réaliser!

voici mon fichier

il faudrait que je crée une macro qui me lance ma macro de la feuille 1 (écrit en grand macro ^^), une fois réalisée, elle me copie/collera (uniquement les valeurs) de la colonne culture de la feuille 1 sur la feuille 3 dans la colonne B. Puis la même chose (relancer le calcul avec la macro de la feuille 1) mais copier la colonne cultures cette fois ci dans la colonne C.... et ainsi de suite 100 fois!!!!

J'espère que mes propos sont clairs et surtout que quelqu'un veuille bien m'aider ^^

Merci

Essayes ca (a coller dans le module 1)

Sub lance_cent_fois()
Dim work_in As Worksheet
Dim work_out As Worksheet
Dim numeroligne As Double
Dim i As Double

Set work_in = ActiveWorkbook.Worksheets("Feuil1")
Set work_out = ActiveWorkbook.Worksheets("Feuil3")

'delete toutes les valeurs de Feuil3
work_out.Range("A1", "IV65536").Clear

'Copy la colonne A d'abord
'Determine la derniere ligne saisie
numeroligne = work_in.Range("A65536").End(xlUp).Row

work_in.Range("A1", "A" & numeroligne).Copy work_out.Range("A1", "A" & numeroligne)

For i = 1 To 100
    work_in.Activate
    Call macro
    work_in.Range("E1", "E" & numeroligne).Copy
    work_out.Range("B1", "B" & numeroligne).Offset(0, i).PasteSpecial (xlPasteValues)

Next

Damien