remplissage optimisé d'un tabeau

Function sum_mang_sub(PlageEntree1 As Range, PlageEntree2 As Range, PlageEntree3 As Range, PlageEntree4 As Range, PlageEntree5 As Range, entree1 As Variant, entree2 As Variant, entree3 As Variant, entree4 As Variant, entree5 As Variant) As Double
'Application.Volatile
    Dim Cell As Range

    For Each Cell In PlageEntree1
        If Cell.Value = entree1 Then
        test1 = "OK"
        End If
    Next Cell
    
    For Each Cell In PlageEntree2
        If Cell.Value = entree2 Then
        test2 = "OK"
        End If
    Next Cell
    
    For Each Cell In PlageEntree3
        If Cell.Value = entree3 Then
        test3 = "OK"
        End If
    Next Cell
    
    For Each Cell In PlageEntree4
        If Cell.Value = entree4 Then
        test4 = "OK"
        End If
    Next Cell
        
    If test1 = "OK" And test2 = "OK" And test3 = "OK" And test4 = "OK" Then
    
        '.......... ?
 
    Next Cell
    
  End Function

Sub test()
Dim Mondico As Object, Plage As Range, i&, j&, k&, Tabl1, Tabl2, EnteteEt1 As Range, _
EnteteEt2 As Range, EnteteAct As Range
Set Mondico = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
Set Plage = .Range("A4:C" & .Range("C" & Rows.Count).End(xlUp).Row)

    For i = 1 To Plage.Rows.Count
        Mondico.Item(Plage(i, 1) & Plage(i, 2) & Plage(i, 3)) = _
        Mondico.Item(Plage(i, 1) & Plage(i, 2) & Plage(i, 3)) + 1
    Next i
Tabl1 = Mondico.keys
Tabl2 = Mondico.items
Set EnteteEt1 = .Range("G3", .[G3].End(xlToRight))
Set EnteteEt2 = .Range("G4", .[G4].End(xlToRight))
Set EnteteAct = .Range("N5", .[N5].End(xlDown))
    For i = 1 To EnteteEt1.Columns.Count
        For j = 1 To EnteteAct.Rows.Count
            For k = 1 To Mondico.Count
                If EnteteEt1(1, i) & EnteteEt2(1, i) & EnteteAct(j, 1) = Tabl1(k - 1) Then
                    Dim Zone()
                    ReDim Preserve Zone(1 To EnteteEt1.Columns.Count, 1 To EnteteAct.Rows.Count)
                    Zone(i, j) = Tabl2(i - 1)
                End If
            Next k
        Next j
    Next i
.Range("G5").Resize(EnteteAct.Rows.Count, EnteteEt1.Columns.Count) = _
Application.Transpose(Zone)
End With
End Sub