Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Rows("2:" & Rows.Count).Delete 'RAZ
Intersect(Feuil1.[A:A].SpecialCells(xlCellTypeConstants, 1).EntireRow, Feuil1.[B:E]).Copy [A2]
UsedRange.Borders.Weight = xlThin 'bordures
End Sub