Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [B6].Address Then [Revenue].ClearContents
End Sub
C'est bien ce que je pensais, où sont les données pour le tableau ?En fait, si vous désirez lier le contenu (données) à la date, il nous faut plus d'éléments ....