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