bonsoir Magut, bonsoir le forum,
désolé ma chère, je n'avais pas tout compris!!!
avec les quelques modifs que j'ai apporté, tu devrais obtenir ton bonheur(enfin j'espère)!!!!!
sachant que tout peu être amélioré, même si cela fonctionne.
à bientôt peut être.
amicalement jacques.
Sub Archivage()
ActiveSheet.Columns(8).Find("*", , , , , xlPrevious).EntireRow.Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select
ActiveSheet.Paste
' ActiveSheet.Paste
Application.CutCopyMode = False
Feuil1.Activate
Selection.Delete Shift:=xlUp
ActiveSheet.Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select
End Sub