Simplifier le VBA

salut tout le monde

J'ai a tableau avec plusieurs colonnes et desire entrer des formules sous vba

pour chaque colonne il y a 29 lignes ou se trouve pour 1 colonnes les formules ci dessous

Range("b5") = Range("b4").Value + Range("C5").Value

Range("b6") = Range("b5").Value + Range("C6").Value

Range("b7") = Range("b6").Value + Range("C7").Value

Range("b8") = Range("b7").Value + Range("C8").Value

Range("b9") = Range("b8").Value + Range("C9").Value

Range("b10") = Range("b9").Value + Range("C10").Value

Range("b11") = Range("b10").Value + Range("C11").Value

Range("b12") = Range("b11").Value + Range("C12").Value

Range("b13") = Range("b12").Value + Range("C13").Value

Range("b14") = Range("b13").Value + Range("C14").Value

Range("b15") = Range("b14").Value + Range("C15").Value

Range("b16") = Range("b15").Value + Range("C16").Value

Range("b17") = Range("b16").Value + Range("C17").Value

Range("b18") = Range("b17").Value + Range("C18").Value

Range("b19") = Range("b18").Value + Range("C19").Value

Range("b20") = Range("b19").Value + Range("C20").Value

Range("b21") = Range("b20").Value + Range("C21").Value

Range("b22") = Range("b21").Value + Range("C22").Value

Range("b23") = Range("b22").Value + Range("C23").Value

Range("b24") = Range("b23").Value + Range("C24").Value

Range("b25") = Range("b24").Value + Range("C25").Value

Range("b26") = Range("b25").Value + Range("C26").Value

Range("b27") = Range("b26").Value + Range("C27").Value

Range("b28") = Range("b27").Value + Range("C28").Value

Range("b29") = Range("b28").Value + Range("C29").Value

Range("b30") = Range("b29").Value + Range("C30").Value

Range("b31") = Range("b30").Value + Range("C31").Value

Range("b32") = Range("b31").Value + Range("C32").Value

ne pourrais je pas simplifier cela ?

car j'ai 12 colonnes donc 12 fois les formules ci dessus ca fais enorme

Je sais que je pourrais faire cela directement sur la cellule exel mais je veux me perfectionner en vba

merci a vous

Bonsoir,

proposition de simplification du code

for i=5 to 32
'range("b" & i)=range("b" & i-1) + range("c" & i)
cells(i,2)=cells(i-1,2)+cells(i,3)
next i

wouah en plus ca marche

merci beaucoup!!!