Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Calculation = xlCalculationManual
With Sheets("tri 3E").[A1].CurrentRegion
If Application.CountIf(.Columns(1), Sh.Name) = 0 Then
Application.Calculation = xlCalculationAutomatic
Exit Sub
End If
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
Application.Calculation = xlCalculationAutomatic
Calculate
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Calculation = xlCalculationManual
End Sub