Supprimer les lignes vides [Résolu/Fermé]

Signaler
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
Messages postés
16220
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 octobre 2020
-
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



1 réponse

Messages postés
16220
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 octobre 2020
3 038
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