1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Sub DeleteCells()
Dim f1 As Range
Dim f2 As Range
Dim t
Dim i As Long, j As Long
Dim r
Dim CalculMode As XlCalculation
On Error GoTo Catch
CalculMode = Application.Calculation
Application.ScreenUpdating = False
Set f1 = Range("tableau1[colonne1]")
Set f2 = Feuil2.Range("a2:j68")
t = f2.Value
For i = UBound(t) To 1 Step -1
For j = UBound(t, 2) To 1 Step -1
r = Application.Match(t(i, j), f1, 0)
If Not IsError(r) Then
f2(i, j).Delete
End If
Next
Next
Catch:
Application.Calculation = CalculMode
Application.ScreenUpdating = True
End Sub |