Recherche et suppression de lignes en fonction d'une cellule vide

Bonjour,

dans le fichier joint j'aimerai si les cellules en A:A sont vides, supprimer les lignes à partir de A2.

J'arrive à faire l'inverse avec le module suivant mais pas ce que je viens de décrire.

Sub test()
Set r = Range("a:a").Find(what:="", LookIn:=xlValues, lookat:=xlWhole)
If Not r Is Nothing Then Range("A2:A" & r.Row - 1).EntireRow.Delete
End Sub

Pourriez-vous m'aider ?

Merci pour votre contribution

Bonjour

Je vois que lorsque vous postez un code vous n'utilisez jamais les balises prévues.
Merci d'utiliser les balises de codes en cliquant sur l'icone </> disponible dans le menu et en collant le code dans la fenêtre. Il sera plus facile à lire.
J'ai corrigé votre post

Edit : essayez ce code

Sub Supprimer_Lignes_Vides()
Dim rng As Range
Dim dlg As Integer

dlg = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next
Set rng = ActiveSheet.Range("A2:A" & dlg).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
    rng.EntireRow.Delete Shift:=xlUp
End If
End Sub

Si ok

Cordialement

Merci Dan,

j'ai trouvé une autre solution entre temps

Sub test()
For i = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 1) = "" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
End Sub