Private Sub Worksheet_Change(ByVal Target As Range)
Dim filtre1 As Range, filtre2 As Range
Set filtre1 = [E2]: Set filtre2 = [A2] 'modifiable
If Target.Row > 1 And Target.Column = filtre1.Column And Target.Count = 1 And Target(1) <> "" _
And Target(1) = filtre1 And Cells(Target.Row, filtre2.Column) = filtre2 Then _
MsgBox "Nombre de '" & filtre1 & "' + '" & filtre2 & "' = " & _
Application.CountIfs(filtre1.EntireColumn, filtre1, filtre2.EntireColumn, filtre2) & vbLf & _
"Somme quantité1 = " & Application.SumIfs([B:B], filtre1.EntireColumn, filtre1, filtre2.EntireColumn, filtre2)
End Sub