Simplifier une formule

Function CalculerSommeMoy(Plage1 As Range, Optional Plage2 As Range) As Double
Dim UnionPlage As Range, Ligne As Range, Cel As Range, L As Range
Dim Mini As Double, Maxi As Double, Cumul As Double, MoyenneD As Double
Dim N As Integer
    'Si la plage2 (optionnelle) existe, on l'intègre à la plage traitée
    If Not Plage2 Is Nothing Then
        Set UnionPlage = Application.Union(Plage1, Plage2)
    Else
        Set UnionPlage = Plage1
    End If
    'On balaye chaque ligne de la plage
    For Each Ligne In UnionPlage.Rows
        'On définit la partie à traiter
        Set L = Range(Ligne.Address)
        'On relève la valeur minimum
        Mini = Application.Min(L)
        'On relève la valeur maximum
        Maxi = Application.Max(L)
        'On effectue la somme des valeurs
        For Each Cel In L
            If Cel <> "" Then
                Cumul = Cumul + Cel.Value
                N = N + 1
            End If
        Next Cel
        'Si le nombre de valeurs est supérieur à 2, on calcule la moyenne _
        après avoir soustrait le mini et le maxi.
        'Puis on effectue le cumul des moyennes.
        If N > 2 Then
            MoyenneD = MoyenneD + (Cumul - Mini - Maxi) / (N - 2)
            Cumul = 0
            N = 0
        End If
    Next Ligne
    'La fonction renvoie le cumul des moyennes
    CalculerSommeMoy = MoyenneD
End Function