Bonsoir,
 
J'ai besoin d'un petit coup de main SVP.
Voici une partie de mon code. J'aimerais que la suppression de ligne se fasse jusqu'à la première ligne vide qui bien évidemment peut évoluer.
 
With ActiveWorkbook.Sheets("Cat. Méth. NCPF" )
 
For i = .Range("A" & .Rows.Count).End(xlUp).Row To 9 Step -1
If .Range("A" & i).Value <> "T2 Chapeau" Then
.Rows(i).Delete
End If
 
            Next i
 
 
Merci beaucoup

Tu testes aujourd'hui si ta cellule vaut "T2 Chapeau", tu peux tester si elle est non vide avec len()>0, cela donnerait :
 

 
 
A tester avec ton classeur

Bonjour,
 
Cela vérifie uniquement qu'une cellule est vide dans la colonne A et non toute la ligne.
 
Je propose cela :
 

Dim nbLignes1, nbLignes2 As Integer
 
    With ThisWorkbook.Sheets("Cat. Méth. NCPF" )
        nbLignes1 = .Range("A1" ).CurrentRegion.Row + .Range("A1" ).CurrentRegion.Rows.Count
        nbLignes2 = .Cells.SpecialCells(xlLastCell).Row
        .Range("A" & nbLignes1 & ":A" & nbLignes2).EntireRow.Delete
    End With

problème résolu! merci!!!