Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastLigne As Integer
LastLigne = Sheets("COMPTES").Range("a65536").End(xlUp).Row
Sheets("COMPTES").[A1:N&LastLigne].AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:GN2"), _
CopyToRange:=Range("D6:I6"), _
Unique:=False
Range("a7:n & LastLigne").Sort key1:=Range("f6"), order1:=xlAscending
End Sub