Suppression d'1 ligne lorsque =0

Sub test()

Dim j As Integer, i As Integer

For i = Range('A65536').End(xlUp).Row To 1 Step -1
    For j = 1 To Range('IV1').End(xlToLeft).Column
        If Cells(i, j).Value = 0 Then
            Rows(i).Delete
            Exit For
        End If
    Next j
Next i

End Sub

Cliquez pour agrandir...

Sub suprimer()

Dim c
Dim i As Integer

For i = Range('A1').SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    Set c = Rows(i).Find(0, lookat:=xlWhole)
    If Not c Is Nothing Then Rows(i).Delete
Next i

End Sub

Cliquez pour agrandir...

Sub suprimer()

Dim c
Dim i As Integer 'numéro de ligne

'Je  pars de la cellule A1 je récupères la ligne de la dernière cellule utilisée
'Puis je boucle de cette dernière ligne jusqu'en 1 en remontant
For i = Range('A1').SpecialCells(xlCellTypeLastCell).Row To 1 Step -1

' je cherche un 0 sur la ligne qui s'appelle en variable i mais qui est un nombre
    Set c = Rows(i).Find(0, lookat:=xlWhole)
   
' si il trouve un 0 il supprime la ligne
    If Not c Is Nothing Then Rows(i).Delete
   
' ligne précédente
Next i

End Sub

Cliquez pour agrandir...

Sub suprimer()

If Range('G1674') = 0 Then Rows(1674).Delete
If Range('G1673') = 0 Then Rows(1673).Delete

End Sub

Cliquez pour agrandir...