Supprimer les lignes vides

Résolu
nonossov Messages postés 638 Statut Membre -  
michel_m Messages postés 18903 Statut Contributeur -
Bonjour mes amis,
j'aimerai bien bénéficier de votre aide pour cette macro,
je voudrai avoir une macro pour suprimmer les lignes vides.

Merci infiniment



A voir également:

1 réponse

michel_m Messages postés 18903 Statut Contributeur 3 317
 
bonjour
Sub Supprimer_si_vide()
Dim Ligne As Long

On Error Resume Next
Ligne = Columns("A").Find("*", , , , , xlPrevious).Row
Range("A2:A" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

0