Supprimer les lignes vides

Résolu
nonossov Messages postés 638 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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