Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
With [Tableau1].ListObject.Range 'tableau structuré
.AutoFilter
.AutoFilter 15, "LIVREE" 'filtre automatique
.SpecialCells(xlCellTypeVisible).Copy [A1]
.AutoFilter 'ôte le filtre
End With
Columns.AutoFit 'ajustement largeurs
End Sub