Sub TestOk()
Dim pf As Range: Cells.Clear
'macro pour créer les données de test
datas
'à supprimer par la suite
MsgBox "Supprimer les lignes =0 en colonne H et I?", vbQuestion
Range("O2").FormulaR1C1 = "=AND(RC[-7]=0,RC[-6]=0)"
Intersect(Columns("H:I"), ActiveSheet.UsedRange.EntireRow).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("O1:O2"), Unique:=False
Set pf = [_FilterDataBase]
If WorksheetFunction.Subtotal(3, pf.Offset(1).Resize(pf.Rows.Count - 1, 1)) > 0 Then
pf.Offset(1).Resize(pf.Rows.Count - 1).EntireRow.Delete
End If
ActiveSheet.ShowAllData: Range("O1:O2") = ""
End Sub
Private Sub datas()
Application.ScreenUpdating = False
[A1] = "ITEM1": [A1].AutoFill Range("A1:N1"), 0: Range("A2:N1000") = "=mod(row(),2)"
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Application.ScreenUpdating = True
End Sub