Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Sheets("Feuil1").Columns("A:G").Copy [B1] 'càlonne A auxiliaire
With Range("A1", UsedRange)
.Columns(1) = "=1/((ROW()=1)+(COUNTA(RC[4]:RC[7])<4))"
.Columns(1) = .Columns(1).Value 'supprime les formules
.Sort .Columns(1), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
.Columns(1).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End With
Columns(1).Delete 'supprime la colonne auxiliaire
UsedRange.BorderAround Weight:=xlMedium 'pourtour
End Sub