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