suppression de lignes vides

Salut à tous,

En utilisant la méthode specialcells, par exemple pour effacer les cellules vides de la colonne D

columns(4).cells.specialcells(xlcelltypeblanks).delete

sinon il faut être plus précis


A+++

Salut,

Imprécis quand aux références des sous-totaux (fixes ou aléatoires ?),
voici déja une méthode pour supprimer les lignes vides dans une plage.

Sub DetruireLigne()
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For R = DerniereLigne To 1 Step -1
If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete
Next R
End Sub

Si tu n'arrives pas à l'adapter, donnes plus de précision, ou mets
un extrait de fichiers en piece jointes.

a+

Bonjour philippe,
Impeccable, cela fonctionne à la perfection.
Merci beaucoup
A+