il suffit de faire des itérations..
Quelle est la case à modifier et la case qui donne le résultat ?
En supposant que la case à modifier soit A1 et le résultat B1
Tu créées une feuille appellée résultats et tu éxecutes ce code
Sub toto()
mini = 1
maxi = 100000
application.screenupdating = false
for i = mini to maxi step 1 'ici tu as le pas (tu peux mettre un pas de 0,1 ou de 500..
Sheets("Lenomdetonsheetoutuastescases").range("A1") = i 'change le nomdusheet et la case a modifier
Sheets("résultats").range("A" & i-mini+1) = i
Sheets("résultats").range("B" & i-mini+1) = Sheets("Lenomdetonsheetoutuastescases").range("B1")'change le nomdusheet et la case a résultat
next i
application.screenupdating = true
end sub