Sub ArchiverColonne()
Dim colonnevide As Integer
Application.ScreenUpdating = False
colonnevide = Sheets("Archive").Range("IV4").End(xlToLeft).Column + 1
Sheets("Base").Range("B2:G" & Range("B65535").End(xlUp).Row).Copy
Sheets("Archive").Cells(4, colonnevide).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("G1").Select
rep = MsgBox("Total Stocks : " & Range("stock").Value & vbLf & "Total Q. Achetée : " & Range("achat").Value & vbLf & _
"Total Q. Vendue : " & Range("vente").Value & vbLf & "Reste en Stock : " & Range("reste").Value & vbLf, vbOKOnly, "Récap pour " & Range("B2").Value)
End Sub