Sub MarcelProust_Reboot()
Dim i
For i = 1 To 3
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "MO -" & i
ActiveSheet.[A1] = i
Next
ActiveWorkbook.Names.Add Name:="nf", RefersToR1C1:= _
"=MID(GET.WORKBOOK(1),FIND(""]"",GET.WORKBOOK(1))+1,99)&INDIRECT(""iv65000"")"
Sheets(1).[B1].FormulaArray = _
"=SUM(IF(LEFT(nf,3)=""MO "",N(INDIRECT(""'""&nf&""'!A1""))))"
Sheets(1).[B1].Select
End Sub