Excel macro conditionnelle sur case à cocher

Bonjour à tous!
J'ai une question qui devrait être simple pour vous :
Je cherche à faire une macro (affectée à une case à cocher), de telle sorte qu'elle fasse un tri dans mon tableau quand on la coche, et qu'elle annule le tri quand on la décoche.
J'ai essayé avec une boucle if Else, mais n'étant pas calé sur le sujet, je n'y arrive pas.
Voici mon code :
Sub Macro1()
'
' Coche Macro
'
'
If D7 = VRAI Then
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:= _
"U"
Else
If D7 = FAUX Then
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3
End If
End If
End Sub
Merci pour votre aide!
J