Re Simon,
Si la céllule est vide:
Application.WorksheetFunction.SumIfs(Range("Quantity"), Range("Nomfeuille"), Range("Nom").Value, Range("datefeuille"), "<" & Range("date") * 1, Range("Prénom"), """")
Si la céllule n'est pas vide:
Application.WorksheetFunction.SumIfs(Range("Quantity"), Range("Nomfeuille"), Range("Nom").Value, Range("datefeuille"), "<" & Range("date") * 1, Range("Prénom"), ""<>"")
Bonne nuit