[COLOR=blue]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
l = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Sheets("Feuil1").Cells(1, 4).Value = Evaluate("SumProduct(B2:B9 * (A2:A9 = C1))")
Sheets("Feuil1").Cells(2, 4).Value = Evaluate("SumProduct((B2:B" & l & ") * (A2:A" & l & " = C1))")
[COLOR=blue]End Sub[/COLOR]