Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
Sheets("Onglet1").[A1].CurrentRegion.Copy Range("A" & Rows.Count).End(xlUp)(2)
[A1].CurrentRegion.RemoveDuplicates Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlNo 'supprime les lignes en doublon
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub