Code macro pour copier coller sur une autre feuille excel sans cases vides

Private Sub Worksheet_Activate()
Dim t, ncol%, rest(), i&, n&, j%
t = Feuil1.UsedRange 'Feuil1 => CodeName de la feuille source
ncol = UBound(t, 2)
ReDim rest(1 To UBound(t), 1 To ncol)
For i = 1 To UBound(t)
  If t(i, 1) <> "" Then
    n = n + 1
    For j = 1 To ncol
      rest(n, j) = t(i, j)
    Next j
  End If
Next i
If n Then [A1].Resize(n, ncol) = rest
Rows(n + 1 & ":" & Rows.Count).Delete
End Sub

Private Sub Worksheet_Activate()
Dim dest1 As Range, dest2 As Range, h1&, h2&
Dim t, ncol%, rest1(), rest2(), i&, n1&, j%, n2&
Set dest1 = [3:20] 'à adapter
Set dest2 = [25:40] 'à adapter
h1 = dest1.Rows.Count
h2 = dest2.Rows.Count
t = Feuil1.UsedRange 'Feuil1 => CodeName de la feuille source
ncol = UBound(t, 2)
ReDim rest1(1 To h1, 1 To ncol)
ReDim rest2(1 To h2, 1 To ncol)
For i = 1 To UBound(t)
  If t(i, 1) <> "" Then
    If n1 < h1 Then
      n1 = n1 + 1
      For j = 1 To ncol
        rest1(n1, j) = t(i, j)
      Next j
    ElseIf n2 < h2 Then
      n2 = n2 + 1
      For j = 1 To ncol
        rest2(n2, j) = t(i, j)
      Next j
    End If
  End If
Next i
Application.ScreenUpdating = False
Union(dest1, dest2) = Empty 'RAZ
If n1 Then dest1.Resize(n1, ncol) = rest1
If n2 Then dest2.Resize(n2, ncol) = rest2
End Sub

t = Feuil1.UsedRange.Offset(1) 'Feuil1 => CodeName de la feuille source

t = Feuil1.UsedRange.Offset(2) 'Feuil1 => CodeName de la feuille source

Private Sub Worksheet_Activate()
Dim r As Range, masque As Range
Set r = [H36:H45,H49:H70,H74:H78,H82:H95,H99:H134,H138:H159,H163:H194,H198:H202,H206:H219]
Application.ScreenUpdating = False
Feuil1.Cells.Copy [A1] 'Feuil1 est le CodeName de la feuille
[A1].Copy [A1] 'pour alléger la mémoire
For Each r In r
  If r = "" Then Set masque = Union(r, IIf(masque Is Nothing, r, masque))
Next
If Not masque Is Nothing Then masque.EntireRow.Hidden = True
If [J8] = "RA" Or [J8] = "Perso" Then Rows("12:29").Hidden = True
Me.PageSetup.PrintArea = "$H:$P" 'zone d'impression à adapter au besoin
End Sub