Macro supprimer lignes selon valeur cellules dans une colonne

Bonjour,

Il y a déjà quelques temps, un gentil « super en VBA » m’a passé cette macro qui permet de supprimer des lignes selon besoin :

Sub MainPROC()
Dim lignes As Range, MSerr&
Application.DisplayAlerts = False
Set lignes = Application.InputBox _
(Prompt:="selectionner les lignes à supprimer ", _
Title:="Suppression de ligne (Selection)", _
Type:=8)
suplig lignes.Address, "SM (2)"
End Sub
_________________________________________________
Private Sub suplig(lignes$, ParamArray tf() As Variant)
Dim i As Byte
For i = 0 To UBound(tf)
With Sheets(tf(i))
.Unprotect
.Range(lignes).EntireRow.Clear 'delete =supprime
'Clear = efface
End With
Next i
End Sub



Je vous la transmets qui sait, elle pourrait être utile à qui ne sait pas faire (comme moi).

J’ai une question à poser et bien sûr, j’ai besoin de votre aide.

A partir de cette macro, est-il possible de la modifier pour que soient supprimées les lignes en fonction des cellules vides dans une même colonne ?
(c'est-à-dire, les cellules de la colonne G (par exemple)), à partir du moment où la macro rencontre des cellules vides, elle supprimes les lignes correspondantes)

Est-il possible que la suppression des lignes soit automatique (sans que la macro me demande de sélectionner les lignes à supprimer ?

Merci de votre aide,
Amicalement,
Lionel,