Range("I5").Select
Windows.Arrange ArrangeStyle:=xlHorizontal
Dim a
a = Split(Sheets(Sheets.Count).Name, " ")
Range("I5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-5],'[Mois_Tout_" & a(0) & a(1) & ".xls]Facturation Periodique'!C1:C10,7,FALSE),0)"
Range("K5").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-7],'[Mois_Tout_" & a(0) & a(1) & ".xls]Facturation Periodique'!C1:C10,6,FALSE),0)"
Range("I5:K5").Select
Range("I5:K5").Select
Selection.Copy
Range("I6:K171").Select