Sub Macro1()
Application.ScreenUpdating = False
Range("F4:F434").FormulaR1C1 = "=IF(RC[-1]=0,""Staple"",1)"
Range("F4:F434").SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
Columns("F:F").Delete Shift:=xlToLeft
End Sub
Je pourrais mais je ne le ferais pas.Pourrais-tu intégrer le filtre sur le fichier ?
Rodge