VBA suppression ligne si cellule vide

Bonjour

fichier joint avec explication

Merci d'avance

Nonno

Bonjour

Essayez comme ceci

Sub Supprimer_Lignes_Vides()
Dim rng As Range

On Error Resume Next
Set rng = ActiveSheet.ListObjects("Tableau1").ListColumns(4).DataBodyRange.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
    rng.Delete Shift:=xlUp
End If
End Sub

Si ok pensez à

Cordialement

Bonjour Dan et merci, cela fonctionne parfaitement

Bonne journée