Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLigne As Long
Application.ScreenUpdating = False
If Not Intersect(Selection, [A1]) Is Nothing Then
With Sheets("Comptes")
DerLigne = .Range("I" & .Rows.Count).End(xlUp).Row
DerLigne = DerLigne - 1
.[B2].AutoFilter
.Range("A2:I" & DerLigne).AutoFilter Field:=1, Criteria1:=[A1]
End With
End If
Application.ScreenUpdating = True
End Sub