Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Sh.[E7:P19]) Is Nothing Then Exit Sub
Dim mat, n&, tablo, decal&, i As Byte, j As Byte
ReDim mat(1 To 13, 1 To 12 * Worksheets.Count)
For n = 1 To Worksheets.Count
tablo = Worksheets(n).[E7:P19].Value2 'Value2 à cause des dates
decal = 12 * (n - 1)
For i = 1 To 13 Step 6 'lignes 1 7 13
For j = 1 To 12
mat(i, j + decal) = tablo(i, j)
Next
Next
Next
Me.Names.Add "Matrice", mat 'nom défini
End Sub