VBA effacer Ligne si Valeur egal 0

Bonjour,

Dans la feuille Extraction Globale je souhaite supprimer la ligne entière dans la feuille Extraction Globalesi si la cellule correspondante qui se trouve dans la dans la colonne 0 est égale à 0 et ce à partir de la 7 cellule.

Merci pour votre aide

Cordialement

Bonjour,

à tester,

Sub test()
Set sh = Sheets("Extraction Globale")
rw = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = rw To 7 Step -1
  If sh.Range("AA" & i) = 0 Then sh.Rows(i).Delete Shift:=xlUp
Next i
End Sub

Bonjour,

Un autre exemple.

ALT F8, exécuter Delete_Rows

Cdlt.

Public Sub Delete_Rows()
Dim lastRow As Long, lastCol As Long, rngData As Range
    With Worksheets("Extraction Globale")
        If .AutoFilterMode Then .ShowAllData
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        lastCol = .Cells(6, .Columns.Count).End(xlToLeft).Column
        Set rngData = .Cells(6, 1).Resize(lastRow - 5, lastCol)
    End With
    With rngData
        'remplacer 27 par 15 pour la colonne O
        .AutoFilter field:=27, Criteria1:=0
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
End Sub