Ajout du contenu d'une colonne dans une autre

[Lamoriciere]

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

 

[ChTi160]

Salut Lamoriciere

Set CelD = .Range('A65536').End(xlUp) .row + 1 pour avoir la premiere ligne vide de la colonne A en partant du Bas

Set CelD = .Range('A65536').End(xlUp) celà donne la dernire cellule non vide

 

[Lamoriciere]

Bonjour,
Excusez-moi pour ce retard mais, vacance oblige je me suis remis à mon problème maintenant. Votre réponse a tout débloquer. Encore merci

 

[Lamoriciere]

Bonjour,
Excusez-moi pour ce retard mais, vacance oblige je me suis remis à mon problème maintenant. Votre réponse a tout débloquer. Encore merci

 

[ChTi160]

Salut Lamoriciere
bonjour le Forum
content que cela te convienne ,sur XLD il n'est jamais trop tard pour remercier Lol
bonne fin de Journée