Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.ClearContents 'RAZ
With Feuil1.UsedRange
.Rows(1).Insert xlDown
Union(.Rows(0), .Cells).AutoFilter 1, "I1"
.Copy [A2]
.Parent.AutoFilterMode = False
.Rows(0).Delete xlUp
End With
End Sub