Bonjour
J’ai une plage (A1:BA3000) qui contienne que des nombres.
J’ai essayé de supprimer les valeurs zéro avec le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Range("A1:ba3000").AutoFilter Field:=3, Criteria1:="0,00"
Range("c2:c3000").SpecialCells(xlCellTypeVisible).ClearContents
Range("A1:ba3000").AutoFilter Field:=3
Mon problème ce que je doit répéter ce code 53 fois et je change que le N° de Field (de 3 au 53) et la range ("c2:c3000") au range ("ba2:ba3000")
Question
SVP comment faire pour réduire ces 53 codes pour supprimer les valeurs zéro