Ajout du contenu d'une colonne dans une autre

Bonjour,
Je roule sous XP et Excel 2002.
Je vous sollicite à nouveau pour un problème.
Ci-dessous le code utilisé pour ajouter le contenu de la colonne B à celui de la colonne A.
Le problème est celui-ci, la dernière cellule de la colonne A est remplacée par la première de la colonne B.
Où est l'erreur?

Sub Fusion() ' Pour ajouter le contenu de la colonne B au contenu de la colonne A
Dim Plage As Range, Cel As Range, CelD As Range

With Sheets('Liste')
Set Plage = .Range('B4', .Range('B65536').End(xlUp))
Set CelD = .Range('A65536').End(xlUp)
End With

For Each Cel In Plage 'sert a ajouter le contenu de la colonne B au contenu de la colonne A
If Cel.Value <> '0' Then
CelD = Cel
Set CelD = CelD.Offset(1, 0)
End If
Next Cel

End Sub

Merci