Sub TEST_5()
Dim fin As Long
créer_données_TEST
fin = Cells(Rows.Count, 1).End(3).Row
If Not ActiveSheet.AutoFilterMode Then
MsgBox "Appliquer le filtre?" & Chr(13) & "Colonne filtrée: C, critère du filtre: =0", vbQuestion, "TEST"
Cells(1).Resize(fin, 8).AutoFilter Field:=3, Criteria1:="0"
End If
End Sub
Sub créer_données_TEST()
[A1] = "ITEM1": [A1].AutoFill Destination:=[A1:H1], Type:=0: [A2:H26] = "=MOD(ROW()-1,5)"
End Sub