Sumproduct With loop

Hello everyone,

I'm trying to create a loop with a sumproduct function.
I can use the classic sumproduct function without VBA but my file can contain thousands of lines.
in the attached file, sheet "result expected" I present the results i wish to obtain.

Thanks a lot for your help,
Kind regards,