DerLig = Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
For Lig = DerLig To 2 Step -1 'partir de la dernière pour sup lig (sup lig si tout =0)
NbrDeFois = Application.WorksheetFunction.CountIf(Range("E" & Lig & ":AA" & Lig), ">0")
If NbrDeFois = 0 Then Rows(Lig & ":" & Lig).Delete Shift:=xlUp
Next