Suppression des lignes inutiles dans une table

Sub test1()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 6 Step -1
If Application.WorksheetFunction.CountBlank(Cells(i, 3).Resize(, 3)) = 3 Then
If Not Cells(i, 3).Resize(, 3).Interior.ColorIndex = xlNone Then
Rows(i).Delete
End If
End If
Next
End Sub

Sub test2()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 6 Step -1
If Application.WorksheetFunction.CountBlank(Cells(i, 3).Resize(, 3)) = 3 Then
Rows(i).Delete
End If
Next
End Sub