Bonjour Kévin,
Une piste :
Sub SommeSiEns()
Dim Derligne As Long, i As Long, Col As Integer
Col = 1 '<-- n° de colonne contenant les montants à sommer
Derligne = .Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To Derligne
Cells(i,18) = Application.SumIfs(Range(Cells(3, Col), Cells(Derligne, Col)), Range(Cells(3, 8), Cells(Derligne, 8)), Cells(i, 8), Range(Cells(3, 10), Cells(Derligne, 10)), Cells(i, 10)) 'Appel de la fonction Excel SOMME.SI.ENS()
Next i
End Sub
Il faut prévoir des instructions supplémentaires si des cellules ne sont pas complétées ou vides, sinon tu auras des messages d'erreur.