Sub test()
Dim formules, x&
'création des données de test
formules = Array("=ROW()*COLUMN()", "=INT(ROW()*PI())", "=(A2+B2)*ROW()", vbNullString, "=(B2+C2)-A2")
[A1:H1] = Array("ITEM1", "ITEM2", "ITEM3", vbNullString, "ITEM4", vbNullString, "ITEM4", "ITEM4")
[A2:E25] = formules
[G2:G4] = Application.Transpose(Array(">18", ">98", ">300"))
[H2:H4] = Application.Transpose(Array("<72", "<290", "<650"))
'application du filtre élaboré
Range("A1:E25").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("G1:H4"), _
CopyToRange:=Range("G7"), Unique:=False
x = [G7].CurrentRegion.Rows.Count
'mise en forme
With Range("G7:K7")
.Resize(11).Interior.Color = vbYellow
.Font.Bold = True
End With
End Sub