Supprimer lignes vides

Bonjour à tous,

J'utilise la macro suivant pour supprimer une ligne selon la valeur de la colonne A par exemple. Dans ce cas ci, je veux supprimer toutes les lignes qui dant la colonne Z (26) se trouve la valeur P.

Dim I As Integer

For I = 1 To 256

If Cells(I, 26) = "P" Then

Rows(I).Delete

I = I - 1

J'aimerais faire la même chose pour si la valleur de Z=0 , mais la macro plante, car elle supprime à l'infini les lignes

Est-ce que quelqu'un à une solution !

merci !

Bonsoir,

Sub SuppLigne()
Dim i%
'Macros par Claude "E-P" le 11/02/10
    For i = 256 To 1 Step -1
        If Cells(i, 26) = 0 Then Rows(i).Delete
    Next i
End Sub

ou pour vides

If Cells(i, 26) = "" Then Rows(i).Delete

Merci !!

-- Jeu Fév 11, 2010 10:42 pm --

Finalement je viens de l'esseyer, elle ne marche pas...

Je ne comprend pas pourquoi!

Merci

Salut,

Finalement j'ai compris... Mes lignes vides étaient situé après la 256 lignes, j'ai modifier le 256 et ça marche !

merci Encore