Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As Integer
Valeur = Range('Cellule de la liste de validation').Value
If Not Application.Intersect(Target, Range('cellule de la liste de validation')) Is Nothing Then
If Valeur > 0 Then Call 'Ta macro'
End If
End Sub