Function ResolMat(ByVal MatX As Range, ByVal MatY As Range, Optional ByVal I As Variant = 1)
'Résolution du système d'équation linéaire par calcul matriciel
With WorksheetFunction
    ResolMat = .index(.MMult(.MInverse(MatX), MatY), I)
End With

End Function