C'est bon j'ai trouvé bon ce n'est pas très propre mais ça marche :D
Sub CopyColonne()
Dim DerCol&
With Sheets("PRIO")
Range("A1").Select
Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
DerCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
.Range(.Columns(DerCol -...