Sub SuppressionLigneIJ()
Dim t, P As Range
t = Timer
Set P = ActiveSheet.UsedRange
Application.ScreenUpdating = False
With P.Columns(P.Columns.Count + 1)
.FormulaR1C1 = "=IF(COUNTA(RC8:RC9)=2,""$"",0)"
.Value = .Value
Union(P, .Cells).Sort .Cells, xlAscending 'tri pour accélérer
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
.Value = ""
End With
Set P = ActiveSheet.UsedRange 'MAJ des barres de défilement
MsgBox "Durée " & Format(Timer - t, "0.00 \s")
End Sub
Sub CréationData_pour_Test()
Dim t
t = Array(1, 2, 3, 4, 5, 6, 7, 8, "=IF(MOD(ROW(),16)=0,CHAR(65+COLUMN()),"""")", "=IF(MOD(ROW(),16)=0,CHAR(65+COLUMN()),"""")", 10)
Application.ScreenUpdating = False
Cells(1).Resize(22000, 11) = t
Cells(1).Resize(22000, 11) = Cells(1).Resize(1600, 11).Value
End Sub