Dispatcher sur 3 onglets.

=SI(LIGNES($5:5)<=SOMME((SUPPRESPACE(Tout!$A$5:$A$24)="Lundi")*(Tout!B$5:B$24<>""));INDEX(Tout!B$5:B$24;PETITE.VALEUR(SI((SUPPRESPACE(Tout!$A$5:$A$24)="Lundi")*(Tout!B$5:B$24<>"");LIGNE(INDIRECT("1:"&LIGNES(Tout!$A$5:$A$24))));LIGNES($5:5)));"")

=SI(LIGNES($5:5)=SOMME((SUPPRESPACE(Tout!$A$5:$A$24)
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32))
*Tout!B$5:B$24<>""));INDEX(Tout!B$5:B$24;PETITE.VALEUR(SI((SUPPRESPACE(Tout!$A$5:$A$24)
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32))
*Tout!B$5:B$24<>"");LIGNE(INDIRECT("1:"&LIGNES(Tout!$A$5:$A$24))));LIGNES($5:5)));"")

Option Explicit
Private Sub CommandButton1_Click() 'bouton dans l'onglet Tout
  Dim L As Long, Li As Long
  For L = 5 To Cells(Rows.Count, 1).End(xlUp).Row
    'On error Resume Next *
    With Sheets(Trim(Cells(L, 1)))
      Li = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      If Li < 5 Then Li = 5
      Rows(L).Copy .Cells(Li, 1)
    End With
  Next
End Sub