Sub ArchiverColonne()
Dim colonnevide As Integer
Application.ScreenUpdating = False
colonnevide = Sheets("Archive").Range("IV2").End(xlToLeft).Column + 1
Sheets("Base").Range("B1:B" & Range("B65535").End(xlUp).Row).Copy
Sheets("Archive").Cells(2, colonnevide).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("G1").Select
End Sub