XL 2016 Suppression Ligne si toutes valeur = 0

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