Bjr Ilan,
La macro bloque toujours sur l'instruction
Do While Range("G" & i).Value <> ""
Je pense que la cause est que tu travailles en mode plan réduit.
Si tu ouvre le plan et exécute ta macro, cela semble fonctionner.
Simple suggestion (je suis pas un pro comme christophe ou thierry en VBA), essaye de rajouter cette instruction au début et à la fin de ta macro.
Début : "ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1" Fin : "ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2"
Cela suppose bien évidemment que la feuille active est la feuille 1 où se trouve tes données.
Come Christophe le fait remarquer, fait savoir au forum ce qu'il en est.
Dan