Private Sub CommandButton1_Click()
Range("A1:A1453").Select
For Each Vcellule In Selection
If Vcellule.Value = "" Then
Vcellule.Delete
End If
Next
Les 3000? ça va pas?
Non, j'ai commencé il y a une quinzaine d'années, XL4, si mon neurone est bon, et ça m'a plu.
alors j'ai travaillé, fait des essais multiples et variés et .....dangereux (j'te raconte pas le nombre de Reboot sauvages, de pertes de données, d'heures passées sur ce machin), plus quelques bouquins, le dernier en date :
VBA pour Excel 2003 par MONSIEUR John Walkenbach,une des plus grosses pointures.