Dim Maplage1 As Range
Dim Maplage2 As Range
Nlignes2 = InputBox("Nombre de lignes2", , 1)
Set Maplage1 = Sheets("Feuil2").Range("B14")
Maplage1.Resize(Nlignes2, Nlignes2).Name = "mat1"
Set Maplage2 = Range("N14")
Maplage2.Resize(Nlignes2, Nlignes2).FormulaArray = "[B]=MINVERSE(mat1)[/B]"
Sub test()
Dim Maplage1 As Range
Nlignes2 = InputBox("Nombre de lignes2", , 1)
Set Maplage1 = Sheets("Feuil2").Range("B14")
Maplage1.Resize(Nlignes2, Nlignes2).Name = "vinnie"
End Sub
Sub test_ii()
Dim Maplage1 As Range
Nlignes2 = InputBox("Nombre de lignes2", , 1)
Set Maplage1 = Sheets("Feuil2").Range("B14")
Maplage1.Resize(Nlignes2, Nlignes2).Name = "mat1"
Set Maplage2 = Range("N14")
Maplage2.Resize(Nlignes2, Nlignes2).FormulaArray = "=MINVERSE(mat1)"
End Sub