Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("tri 3E").[A1].CurrentRegion
If Application.CountIf(.Columns(1), Sh.Name) = 0 Then Exit Sub
Application.ScreenUpdating = False
Sh.Cells.Delete 'RAZ
.AutoFilter 1, Sh.Name 'filtre automatique
.Copy Sh.[A1] 'copier-coller
.AutoFilter
End With
Sh.Columns.AutoFit 'ajustement largeurs
End Sub