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