Option Explicit
Option Compare Text 'la casse est ignor?e
Private Sub Worksheet_Change(ByVal Target As Range)
[A1].AutoFilter 'ca peux etre ca tout simplement
If Target.Row = 1 Then
Application.ScreenUpdating = False
Select Case Target.Column
Case 9, 11, 13
If [i1] <> "" Then [A1].AutoFilter Field:=3, Criteria1:=[i1].Value
If [k1] <> "" Then [A1].AutoFilter Field:=4, Criteria1:=[k1].Value
If [m1] <> "" Then [A1].AutoFilter Field:=5, Criteria1:=[m1].Value
If [i1] & [m1] & [k1] = "" Then [A1].AutoFilter
Case Else
ActiveSheet.AutoFilterMode = False
End Select
End If
End Sub