Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
[K2] = "=I2=""a placer""" 'critère
ListObjects(1).Range.AdvancedFilter xlFilterCopy, [K1:K2], [L1:M1]
[K2] = ""
Application.EnableEvents = True 'réactive les évènements
End Sub