Décaler les cellules vers le haut si vide

Bonjour,
je voudrais connaitre le code Macro Excel 2003 qui permettrait de décaler les cellules vers le haut lorsque la cellule précédente dans la colonne est vide.

Par exemple, si en colonne A vous avez ligne 1 à 8: {1,1,vide,vide,1,vide,1,vide}, je voudrais obtenir après exécution de la macro :
colonne A, ligne 1 à 8 : {1,1,1,1,vide,vide,vide,vide}.

Pouvez-vous m'aider ? Merci
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. Je crois avoir trouver :

    Columns("A:AB").SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlToLeft
    Range("a1").Select
    0