Sub supprimeVIDECOLF()
Columns("F:F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
PS: Cela peut aussi être fait manuellement
1) Sélectionner F1 puis faire CTRL+T
2) Dans référence: F1:F55000
3) A nouveau CTRL+T et cocher Cellules vides
4) Edition/Supprimer ligne entière