Sub Macro3()
Range("AG3").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((Dates>=R1C33)*(Dates<=R2C33)*Donnees)"
Range("AI2").Select
ActiveCell.FormulaR1C1 = "=DATEVALUE(RC7)"
'Range("AI2").Select
'Selection.AutoFill Destination:=Range("AI2", [AI65000].End(xlUp)), Type:=xlFillDefault
Range("AI2:AI" & [J65536].End(xlUp).Row).FormulaR1C1 = "=DATEVALUE(RC7)"
Range("AI2", [AI65000].End(xlUp)).Select
Selection.Copy
Range("G2", [G65000].End(xlUp)).Select
Range("G65536").End(xlUp).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="Dates", RefersToR1C1:="=A4COUL2!R2C7:R79C7"
Range("S2", [S65000].End(xlUp)).Select
Range("S65536").End(xlUp).Activate
ActiveWorkbook.Names.Add Name:="Donnees", RefersToR1C1:="=A4COUL2!R2C10:R79C10"
Columns("AI:AI").Select
Selection.ClearContents
End Sub