Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$J$5" Then Exit Sub
Dim F As Worksheet, dest As Range
Set F = Sheets("Copie") 'nom à adapter
Set dest = F.[A5] 'cellule de destination, à adapter
Application.ScreenUpdating = False
With [A5].CurrentRegion 'plage source
dest(2).Resize(F.Rows.Count - dest.Row, .Columns.Count).Delete xlUp 'RAZ
.Offset(1).AutoFilter 8, Target 'filtre automatique
.Copy dest 'copier-coller
.Offset(1).AutoFilter
End With
F.Columns("B:C").AutoFit
F.Activate
End Sub