Macro en boucle

Bonjour,

pour mon travail, nous exportons via un automate des données qu'il me faut analyser pour une question de simplicité je voudrai passé par un tableau croisé dynamique le problème est que l'export généré nous ressort avec des cellules fusionnées,

en gros j'ai en colonne A des sites (fusion sur 10 ligne) en colonne B des articles (5 articles avec un article fusionné sur 2 ligne)

ces fusions me rendent le tableau inexploitable. j'ai fait une macro pour supprimer rapidement la fusion mais les cellules vides reste un problème, les cellules vides !

je cherche à faire une macro pour combler ces vides (via un copier/coller peut-être) sachant que mon tableau fait plus de 1000 ligne ! du coup ma question est, comment réaliser une macro qui fonctionnerait sur, par exemple "site 1" et les articles (voir fichier exemple) et la faire se décaler sur "site 2" puis le 3 .... jusqu'au dernier du tableau ?

merci d'avance

Bonjour,

à tester,

Sub RemplirVide()
For Each c In Selection 'sélectionner la plage à transformer
If c.Value = 0 Then c.Value = c.Offset(-1, 0).Value
Next
End Sub

Merci beaucoup pour la réponse rapide, ça marche parfaitement

Merci pour ce retour, au plaisir!