"tassement" des données

[Art]

Bonsoir à tous
Je vous expose mon problème
Dans une base de données ayant pour champs NomPrénom, Adr1, Adr2, Adr3 ...etc, CpVille.
Est-il possible, par macro, de "tasser" cette BDD vers la colonne CpVille qui elle, est entièrement remplie (pas de cellule vide).
C'est à dire que si la macro rencontre une cellule vide dans la selection elle la remplit avec le contenue de celle de gauche et ainsi de suite pour toute la selection jusqu'a qu'il n'y est plus de cellules vide à remplir.
Actuellement je dois le faire manuellement et c'est extremement laborieux.
J'espère que je me suis bien expliqué et merci à ceux qui s'interresseraient à mon problème (ainsi qu'aux autres).
@+
Art

 

[Art]

Re bonsoir à tous,
J'ai oublié de préciser qu'à la fin du "tassement" de la selection, il n'était pas important qu'une cellule du champ NomPrenom se retrouve sur la droite dans un champ Adr1 ou Adr2 ou autre.
Merci encore.
@+
Art

 

[Pat5]

Bonsoir tout le monde

Essaye ça :

Range("B3:E14").Select ' ta selection
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=RC[-1]"
Range("A3").Select



Tu sélectionne les cellules vides et tu les remplies par celles qui se trouve à leur gauche

A+ ;o)

Pat5

 

[Pat5]

Re

Plutôt comme ça sinon @+Thierry va crier (lol )

Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-1]"

Salut ;o)

 

[Art]

Bonjour Pat5, bonjour le forum
Pat5, merci pour ta macro qui marche très bien, par contre lorsque le traitement est terminé, elle me remplit les cellules vide par des zeros.
Y a t'il un moyen de les supprimer?
Merci encore pour tout
@+
Art