Sub CopyColonne()
Dim DerCol&, DerColCible&
DerColCible = 1
On Error Resume Next
DerColCible = Sheets("Feuil1").Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1
With Sheets("PRIO")
DerCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
.Range(.Columns(DerCol - 1), .Columns(DerCol)).Copy Sheets("Feuil1").Cells(1, DerColCible)
End With
End Sub