Supprimer la lignes avec la dernière celules vide

Bonjour,

je suis réalise un tableau pour un projet, et j'ai des cellules vides que j'aimerais supprimer

Par exemple dans ma colonne H il y a des cellules vides, quand ces cellules sont vide j'aimerais que la ligne entière ce supprime, j'ai déjà essayer cela :

Range("h1:h500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

mais cela ne fonctionne pas.

Merci par avance de votre aide

Salut Cadeau,

bienvenue chez nous!

cadeau...

'
iRow = Range("H" & Rows.Count).End(xlUp).Row
For x = iRow To 1 Step -1
    If Range("H" & x).Value = "" Then Rows(x).Delete shift:=xlUp
Next
'

A+

Bonsoir CADEAU74, toutes et tous,

Salut curulis57,

Une modeste contribution.

Sub supVides()
    On Error Resume Next
    [H:H].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Cordialement.

Salut mdo,

je l'avais déjà presque oubliée cette façon de faire!

Il n'y a pourtant que quelques jours que je l'avais vue sortir des doigts de MFerrand!

Faudra que je me la mette dans un coin de ma tête!

Merci pour le rappel!

A+

Merci beaucoup

À+