supression de lignes vides !

[super rattata]

Bonjour a tous

Toutes mes confuses !!!

Apres analyse de ttes les démonstration qui m'ont été fourni
g réussit a obtenir le résultat que je désirais.

Il me reste néanmoins un petit problème dérisoire pour des gens
confirmé ms difficile pour quelqu'un comme moi qui lutte
toujours avec les boucles 'while'...

Il s'agit en fait ds une feuille de supprimer les lignes vides :

je sais ou je pense qu'il faut utiliser une boucle do while ms
je n'arrive pa a l'écrire et au final il me reste tjrs des lignes
vides.
(les lignes ne peuvent se remplir au maximum que jusqu'a la ligne
A47)

Ci joint un fichier démonstratif...

Si vs pouviez me donner un dernier coup de main (enfin j'espère)


Vincent


PS : Merci a thierry, JPH, Zon, robert et tous ceux qui m'ont déja fournir une aide très précieuse

 

[@+Thierry]

Bonjour Super Ratata (quel pseudo !! lol)

Je n'ai pas ouvert ton fichier qui, de plus n'est pas ZIPPé[/p] (Grrr)

Mais je pense que ceci devrait te suffir :

Sub CLEAN()
Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

C'est tout !

Bonne Fin d'Aprèm
@+Thierry