Supprimer les lignes vides Excel avec VBA !

Option Explicit
 
Const TARGET_SHEET_NAME As String = "DATA" 'A remplacer par le nom de l'onglet que vous voulez traiter.
 
Sub supprimer_lignes_vides()
 
Dim RowNumber As Integer
 
    Sheets(TARGET_SHEET_NAME).Activate
 
    RowNumber = Cells.SpecialCells(xlCellTypeLastCell).Row
 
    Do While RowNumber > 0
 
        If Rows(RowNumber).Find("*") Is Nothing Then Rows(RowNumber).Delete
 
        RowNumber = RowNumber - 1
 
    Loop
 
 
End Sub

   Envoyer l'article en PDF