Suppression de Cellule Vide

Bonjour à tous,

J'ai actuellement un fichier Comme Suit :

A B C D

1 x x

2 x

3 x

4

5 x x

Ou x Représente une cellule Remplie. J'aimerai supprimer les cellules vides pour tout décaler un maximum vers le haut !

Cependant mes cellules contiennent une formule recherche V qui si elle est fausse renvoie à : ""

J'ai codé quelque chose qui fonctionne mais malheureusement il faut que je relance la macro plusieurs fois pour qu'elle me supprime réellement toute les lignes :

Sub test()

Dim Cellule As Range

For Each Cellule In ActiveSheet.Range("A1:Z93")

If Cellule Is Nothing Or Cellule.Value = "" Then

Cellule.Delete xlUp

End If

Next Cellule

End Sub

Bonjour,

Pour bien comprendre :

Ou x Représente une cellule Remplie. J'aimerai supprimer les cellules vides pour tout décaler un maximum vers le haut !

- ce sont des cellules vides et donc sans formule qui sont à supprimer ou les cellules que la formule renvoie ""

....je relance la macro plusieurs fois pour qu'elle me supprime réellement toute les lignes :

- Ce qui est à supprimer c'est la cellule dans la colonne ou la ligne complète

A te relire

Bonjour

Essaie ce code :

Sub test()
 Dim ln As Integer, col As Integer
 For ln = 93 To 2 Step -1
    For col = 1 To 26
        If Cells(ln, col).Value = "" Then
        Cells(ln, col).Delete xlUp
        End If
    Next col
 Next ln
End Sub

Merci GMB cela marche niquel !

En plus grâce à toi j'arrive vraiment à mieux comprendre le code un grand merci