Macro pour archiver zones discontinues...

Sub Macro1()
Sheets("Feuil1").Copy After:=Sheets(1)
Columns("G:L").Delete Shift:=xlToLeft
End Sub

Private Sub Worksheet_Activate()
Dim P As Range, M As Range
With Feuil1 'CodeName de la feuille source
  Set P = .[E7:AF50]: Set M = .[G:L] 'à adapter au besoin
  M.Columns.Hidden = True
  P.SpecialCells(xlCellTypeVisible).Copy [A3]
  M.Columns.Hidden = False
End With
Columns.AutoFit 'ajustement de la largeur
End Sub

Private Sub Worksheet_Activate()
'Feuil1 est le CodeName de la feuille source
Feuil1.[E7:F50,M7:AF50].Copy [A3]
Columns.AutoFit 'ajustement de la largeur
End Sub

Sub Archivage()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim dercel As Range
Set dercel = Feuil2.Cells.Find("*", , xlValues, , xlByRows, xlPrevious)
With dercel.Parent.Range("A" & dercel.Row + 1)
  Feuil1.[E7:F50,M7:AF50].Copy .Cells
  .Parent.Columns.AutoFit 'ajustement de la largeur
  .Parent.Activate 'facultatif
End With
End Sub