Merci jean-Eric, c'est ça.
C'est à chaque fois avec cette partie de code que je bute:
With ws
iCol = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
.Columns(4).Copy .Columns(iCol)
.Range("D2,D4,D6,D8,D9:D236").ClearContents
End With
Juste un petit bémol....
ce sont les cellules de destination que je veux effacer, et non pas celles d'origine....
With ws
.Range("D2,D4,D6,D8,D9:D236").ClearContents
End With
Comment faire pour "viser" les cellules de la nouvelle colone ?