J"ajouterai Lien supprimétout d'abord BONJOUR
[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]
=SOMMEPROD((MOD(LIGNE(A5:A100);5)=0)*(A5:A100))+A1