Macro qui se lance après validation liste déroulante

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 5 And Target.Count = 1 And Target(1) <> "" Then _
    MsgBox "Nombre de '" & Target & "' = " & Application.CountIf([E:E], Target) _
        & vbLf & "Somme quantité1 = " & Application.SumIf([E:E], Target, [B:B])
End Sub

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

Private Sub Worksheet_Change(ByVal Target As Range)

Dim filtre1 As Range, filtre2 As Range
Set filtre1 = [S2]: Set filtre2 = [A2] 'modifiable si les colonnes concernées changent

     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 & "' pour le contrat ID '" & filtre2 & "' = " & _
           Application.CountIfs(filtre1.EntireColumn, filtre1, filtre2.EntireColumn, filtre2) & vbLf & _
           "Le Cumul cliqué de " & filtre1 & " est de " & Application.SumIfs([R:R], filtre1.EntireColumn, filtre1, filtre2.EntireColumn, filtre2) * 100 & "%"

    End If

End Sub