Effacer ligne si cellule = 0

Sub supprimevideCOLONNEB()
[COLOR="seagreen"]'inspiré par Tirex28[/COLOR]
Application.ScreenUpdating = False
With Range("B1", Range("B65536").End(xlUp)) 
[COLOR="SeaGreen"]'pour changer de colonne
'remplacer B par la lettre de la colonne choisie[/COLOR]
.AutoFilter field:=1, Criteria1:="=0"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

Sub Macro2()

Dim Rng As Range
Dim cell As Range
Set Rng = Range("A20", Range("IV20").End(xlToLeft))' a adapte à ton besoin
For Each cell In Rng
If cell.Value = 0 Then
    Range(cell, cell.End(xlUp)).Delete Shift:=xlToLeft
    End If
Next cell
End Sub

Sub Macrotest()
Dim Rng As Range
Dim Rng2 As Range
Dim cell As Range
Dim Ncol As Integer
Set Rng = Range("A20", Range("IV20").End(xlToLeft))
Ncol = Rng.Columns.Count
Set Rng2 = Range("A20").CurrentRegion.Resize(19, Ncol)
For Each cell In Rng
If cell.Value = 0 Then Rng2.Cells.EntireRow.Delete
Next cell
Verif = MsgBox("Voulez-vous vraiment supprimer cette ligne?")
If Verif = vbOK Then [A1].EntireRow.Delete
End Sub

[COLOR=silver]Sub Macro2()[/COLOR]
[COLOR=silver]Application.ScreenUpdating = False[/COLOR]
[COLOR=silver]With Range("A1")[/COLOR]
[COLOR=silver]   If Not AutoFilterMode Then[/COLOR]
[COLOR=silver]       .AutoFilter 1, "<>0", Operator:=xlAnd[/COLOR]
[COLOR=silver]       .SpecialCells(xlCellTypeVisible).CurrentRegion.EntireRow.Delete[/COLOR]
[COLOR=silver]   End If[/COLOR]
[COLOR=silver]End With[/COLOR]
[COLOR=silver]Rows("1:1").Delete Shift:=xlUp[/COLOR]
[COLOR=silver]End Sub[/COLOR]