Ba il faudrait déja que tu boucle jusqu'a trouver ta cell vide, et quand tu en a trouver une tu la sélectionne et tu la supprime
sub nom()
ligne=0
Do until isempty(cells(ligne,"h"))
ligne=ligne+1
loop
cells(ligne,"h").select
Selection.EntireRow.Delete
end sub
voilà sof kil faut ke tu execute plusieur foi cette macro a chak foi ke tu lexecute une ligne sera supprimé seulement:D
Si tu veux toute les lignes génante remet une boucle par dessus:D