Bonjour à tous,  
Ma fonction ne marche pas  
 
Application.WorksheetFunction.SumIfs(Range(Worksheets("DATA" ).Cells(2, 35), Worksheets("DATA" ).Cells(1000, 35)), Range(Worksheets("DATA" ).Cells(2, 2), Worksheets("DATA" ).Cells(1000, 2)), "AI", Range(Worksheets("DATA" ).Cells(2, 1), Worksheets("DATA" ).Cells(1000, 1)), "<" & D2)
 
Le problème vient de la dernière partie ou D2 est une date et la dernière condition n'est pas reconnue.
J'ai essayé avec Cdate(D2) mais ça ne marche toujours pas.
 
Qqn aurait-il une idée?

Qu'est-ce que renvoient :
    Worksheets("DATA" ).Cells(2, 35)
    et Worksheets("DATA" ).Cells(1000, 35)
    et Worksheets("DATA" ).Cells(2, 2)
    et Worksheets("DATA" ).Cells(1000, 2)
    et Worksheets("DATA" ).Cells(2, 1)  
    et Worksheets("DATA" ).Cells(1000, 1)
?
 
Des adresses, des éléments d'adresse (A,1,B,2,C,1 ...) ou est-ce que tu veux avoir comme résultat Worksheets("DATA" ).Range("AI2:AI1000" ), Worksheets("DATA" ).Range("B2:B1000" ) et Worksheets("DATA" ).Range("A2:A1000" ) ?
 
De toutes façons, ton critère ("<" & D2) arrive en dernier de tes (3?) arguments et c'est le deuxième de trois paramètres dans la définition de la fonction...
 
Expliques s.v.p.