Sub sommeprod()
Dim lig&
'partir de la ligne 10 si colonne b no vide
lig = Cells(10, "A").End(xlDown).Row
'Action à réaliser dans la colonne H
With Range(Cells(10, "D"), Cells(lig, "D")).Resize(, 8)
'Efface les anciennes valeurs
.ClearContents
'formule
.FormulaR1C1 = _
"=IF(RC[-2]="""","""",SUMPRODUCT('Données brutes agents'!R9C5:R40000C5*(RC1='Données brutes agents'!R9C8:R40000C8)*(R3C='Données brutes agents'!R9C2:R40000C2)))"
Range("E10").Select 'Pourquoi cette sélection ?
Range("D11").Select 'Pourquoi cette sélection ?
'remplace formule par la valeur trouvée
.Value = .Value
End With
End Sub