Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuill estfiltrée
UsedRange.ClearContents 'RAZ
With Sheets("traitement_not_s").UsedRange
[A1].Resize(.Rows.Count, .Columns.Count) = .Value
End With
On Error Resume Next 'si aucune SpecialCell
[D:D].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise les barres de défilement
End Sub