XL pour MAC Création d'un tableau en fonctions de 2 critères des tableaux a partir d'une liste

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, dat, an%, mois As Byte, i&, x$, tablo, ub&, j&
Set P = [J15:M27]
dat = [L10] & "/" & [L11]
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
P.ClearContents 'RAZ
If IsDate(dat) Then
    dat = CDate(dat)
    an = Year(dat): mois = Month(dat)
    P(1, 2) = an & IIf(mois > 1, "/" & an + 1, "")
    P(1, 3) = an + 1 & IIf(mois > 1, "/" & an + 2, "")
    P(1, 4) = an + 2 & IIf(mois > 1, "/" & an + 3, "")
    For i = 0 To 11
        P(i + 2, 1) = Format(DateSerial(an, mois + i, 1), "mmmm")
    Next
    x = LCase(P(2, 1)) & an
    tablo = [A7].CurrentRegion 'matrice, plus rapide
    ub = UBound(tablo)
    For i = 1 To ub
        If LCase(Trim(tablo(i, 1))) & Trim(tablo(i, 2)) = x Then
            For j = i To i + 11
                If j > ub Then Exit For
                P(2 + j - i, 2) = tablo(j, 3)
            Next j
            For j = j To i + 23
                If j > ub Then Exit For
                P(2 + j - i - 12, 3) = tablo(j, 3)
            Next j
            For j = j To i + 35
                If j > ub Then Exit For
                P(2 + j - i - 24, 4) = tablo(j, 3)
            Next j
            Exit For
        End If
    Next i
End If
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, dat, i As Variant, an%, mois As Byte
Set P = [D15:G27]
dat = [F10] & "/" & [F11]
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
P.ClearContents 'RAZ
If IsDate(dat) Then
    dat = CDate(dat)
    i = Application.Match(CLng(dat), Columns(1), 0) 'recherche de la date en colonne A
    If IsNumeric(i) Then
        P(2, 2).Resize(12) = Cells(i, 2).Resize(12).Value
        P(2, 3).Resize(12) = Cells(i + 12, 2).Resize(12).Value
        P(2, 4).Resize(12) = Cells(i + 24, 2).Resize(12).Value
    End If
    '---en-têtes---
    an = Year(dat): mois = Month(dat)
    P(1, 2) = an & IIf(mois > 1 And Application.CountA(P.Columns(2)) = 12, "/" & an + 1, "")
    P(1, 3) = an + 1 & IIf(mois > 1 And Application.CountA(P.Columns(3)) = 12, "/" & an + 2, "")
    P(1, 4) = an + 2 & IIf(mois > 1 And Application.CountA(P.Columns(4)) = 12, "/" & an + 3, "")
    For i = 0 To 11
        P(i + 2, 1) = Format(DateSerial(an, mois + i, 1), "mmmm")
    Next
End If
Application.EnableEvents = True 'réactive les évènements
End Sub

=SIERREUR(DATE(""&F$11;MOIS("1/"&F$10)+LIGNE()-16;1);"")

=REPT($F11+COLONNE()-5&REPT("/"&$F11+COLONNE()-4;($F10<>"janvier")*(NB(E16:E27)=12));$D16<>"")

=SIERREUR(INDEX(Montant;EQUIV(--($F$10&"/"&$F$11);Mois;0)+LIGNE()-16+12*(COLONNE()-5));"")