Code vba(somme et multiplication)

Bonjour à tous
j'aurais besoin d'ai pour écrire ce code Vba
sub calculsequations
Cells(.p.L, .p.C)=A(E)
Cells(.p.L+1, .p.C)=B(E)
Cells(.p.L+2, .p.C)=C(E)

avec E=1 To MaxSup

C = 2 * (A+B)
end sub

j'ai une feuille de donnée (comportant un tableau à 5 élements ) qui doit créer un classeur comportant 5 feuilles suivant les élements , sur chacune de ces feuilles ( 5 feuilles) le calcul de C se fera immédiatement sachant que A et B sont variables