Sub TEST()
Dim xsh As Worksheet
For Each xsh In ThisWorkbook.Worksheets: SupprLig0 xsh: Next xsh
End Sub
Sub SupprLig0(xF As Worksheet)
Dim rg As Range, tablo, i&, j&, s
Application.ScreenUpdating = False
With xF
Set rg = .Cells(.Rows.Count, "a").End(xlUp).CurrentRegion
tablo = rg.Value
For i = rg.Rows.Count To 2 Step -1
s = 0
For j = 2 To UBound(tablo, 2): s = s + Abs(Val(tablo(i, j))): Next j
If s = 0 Then rg.Rows(i).Delete xlShiftUp
Next i
End With
End Sub