Bonjour,
voici un exemple,
Sub test()
rw = Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
plgA = Range("A1:A" & rw).Address
plgB = Range("B1:B" & rw).Address
t = "SUMPRODUCT((Feuil1!" & plgA & "<>"""")*(Feuil1!" & plgB & "=""""))"
r = Evaluate(t)
MsgBox r
End Sub