J"ajouterai Lien supprimé
Si non "en excel " on peux faire ça:
Code:
[COLOR=blue]Sub[/COLOR] Nordov6()
Var = Cells(1, 1).Value
[COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] 100 [COLOR=blue]Step[/COLOR] 5
Var = Var + Cells(i, 1).Value
[COLOR=blue]Next[/COLOR] i
MsgBox Var
[COLOR=blue]End Sub[/COLOR]