VBA sur Excel = probleme sur boucle

Bonjour à toutes et à tous,

Après quelques galères j'ai reussi à créer l'equivalent du tri "non vide" pour les colonnes de mon tableau :

Sub TriColonne()
Dim Colonne As Integer
Colonne = 6
'trier à partir de la colonne 6
Do
'Tester la ligne 1de la colonne
If Cells(1, Colonne) = 0 Then
'Masquer la colonne si egale à zero
Columns(Colonne).Hidden = True
'Passer à la colonne suivant
Colonne = Colonne + 1
End If
Loop Until Colonne = 29
End Sub

Tout me parait bon, sauf que quand je lance la macro, le logiciel me fait deux traitements et ensuite, mon processeur me met en attente,..
Vu ma config, et vu la taille du programme, je pense qu'il y a un probleme dans la syntaxe de ma macro.

Je demande humblement votre aide.
Avez vous une petite idee?
demandez moi n'importe quel detail
merci

config
Windows XP SP2
intel core 2 6600 2.4 ghz
2go RAM 4400 hz