Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
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 - 1), .Columns(DerCol)).Copy
Sheets("feuil1").Select
Range("A1").Select
Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
Re..merci jacky, est-il possible d'adapter le code pour que cela colle à partir de la première colonne vide de la feuil1 ? J'ai essayé en mettant avant ton code :
Mais cela ne fonctionne pas...Code:Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
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