Sub Supprimer()
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Columns(2).EntireColumn.Insert 'insère une colonne auxiliaire
DL = Sheets("Cockpit").Range("F65500").End(xlUp).Row
With ActiveSheet.Range("B7:B" & DL)
.FormulaR1C1 = "=IF(COUNTIF(Liste!C,Cockpit!RC[4])>0,1,"""")"
.Value = .Value 'supprime les formules
.EntireRow.Sort .Cells, xlDescending 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
.EntireColumn.Delete 'supprime la colonne auxiliaire
End With
With ActiveSheet.UsedRange: End With 'actualise les barres de...