Consolidation d'une feuille dans différents onglets

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a, i As Variant, n As Long
a = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi")
With Feuil1 'CodeName de la feuille source
  If Sh.Name <> .Name Then 'sécurité
    i = Application.Match(Sh.Name, .[A:A], 0)
    If IsNumeric(i) Then
      n = 1
      While IsNumeric(Application.Match(.Cells(i + n, 1), a, 0))
        n = n + 1
      Wend
      .Rows(i).Resize(n).Copy Sh.[A1]
      Sh.Rows(n + 1 & ":" & Rows.Count).Delete
    End If
  End If
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a(), w As Worksheet, n As Long, i As Variant
With Feuil1 'CodeName de la feuille source
  If Sh.Name <> .Name Then 'sécurité
    ReDim a(1 To Worksheets.Count)
    For Each w In Worksheets
      If w.Name <> .Name And w.Name <> Sh.Name Then
        n = n + 1
        a(n) = w.Name
      End If
    Next
    i = Application.Match(Sh.Name, .[A:A], 0)
    If IsNumeric(i) Then
      n = 1
      While Not IsEmpty(.Cells(i + n, 1)) And _
        IsError(Application.Match(.Cells(i + n, 1), a, 0))
        n = n + 1
      Wend
      .Rows(i).Resize(n).Copy Sh.[A1]
      Sh.Rows(n + 1 & ":" & Rows.Count).Delete
    End If
  End If
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim derlig As Long, a(), w As Worksheet, n As Long, i As Variant
With Feuil1 'CodeName de la feuille source
  If Sh.Name <> .Name Then 'sécurité
    derlig = .UsedRange.Row + .UsedRange.Rows.Count - 1
    ReDim a(1 To Worksheets.Count)
    For Each w In Worksheets
      If w.Name <> Sh.Name Then
        n = n + 1
        a(n) = w.Name
      End If
    Next
    i = Application.Match(Sh.Name, .[A:A], 0)
    If IsNumeric(i) Then
      n = 1
      While i + n < derlig And _
        IsError(Application.Match(.Cells(i + n, 1), a, 0))
        n = n + 1
      Wend
      .Rows(i).Resize(n).Copy Sh.[A1]
      Sh.Rows(n + 1 & ":" & Rows.Count).Delete
    End If
  End If
End With
End Sub