fintablo = Sheets("calculs -to hide").Range("A" & Rows.Count).End(xlUp).Row
finmx = Worksheets("PRODUCT KNOWLEDGE").Range("A" & Rows.Count).End(xlUp).Row
i = 20
For i = 20 To fintablo
valeur = Worksheets("calculs -to hide").Range("B" & i).Value
Set r = Sheets("PRODUCT KNOWLEDGE").Rows(2).Find(valeur, , xlValues, xlWhole)
If Not r Is Nothing Then col = r.Column
Set plage = Range(Cells(3, col), Cells(finmx, col))
Worksheets("calculs -to hide").Range("c" & i).Value = Application.Evaluate("=SUMPRODUCT((PRODUCT KNOWLEDGE!e3:e350 =1)*(PRODUCT KNOWLEDGE!plage=1))")
next