Effacer les lignes vides

Bonsoir le forum,

je souhaiterais effacer les lignes des cellules vides (de A1 à A100 par exemple) entre mes données (ou formules) pour qu'elles se retrouvent les unes à la suite des autres...

Comment faire?

merci

Bonsoir,

essaie avec ce code :

Sub efface_lignes_vides()
    Range("A1:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Bonsoir

Il suffit de lancer un tri et le tour est joué...le cases vides se retrouvent forcément en bas