Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$J$1' Then
If Target = '' Then
ActiveSheet.ShowAllData
Else
Application.Calculate
Range('A1').CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets('Critères'Â'Â').Range('CritRome'Â'Â'), Unique:=False
End If
End If
End Sub