Comment copier les données d'1 colonne ds une autre sans les cellules vides

Bonjour,

Tu fais en erregistrment macro les actions suivantes :
selectionnne col A
fais copier
selectionne col B
fais coller
fais menu édition , atteindre, cellules, cellules vides , OK, édition, supprimer, décaler vers le haut, OK

ça doit faire ce que tu veux et te donnera le code suivant que tu peux recopier aussi direct dans une macro :

Sub Macro2()
'
'
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("B1").Select
End Sub

cordialement,

Bfr

Je comptais utiliser une formule mais finalement j'ai optimisé ta macro et ça marche impec.

Merci Bricofire pour ton aide.