[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] supp_lignes()
Application.ScreenUpdating = [COLOR=darkblue]False[/COLOR]
Range("C2:C" & [C65536].End(xlUp).Row).SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[/FONT]