Sub test()
Dim RngSrc As Range
With Workbooks.Open(ThisWorkbook.Path & "\ClasseurX.xlsx")
Set RngSrc = .Worksheets(1).UsedRange
End With
Set RngSrc = RngSrc.Rows(2).Resize(RngSrc.Rows.Count - 1)
ThisWorkbook.Activate
ActiveSheet.[A2].FormulaR1C1 = "=" & RngSrc(1, 1).Address(True, True, xlR1C1, True)
ActiveSheet.[A2].Resize(RngSrc.Rows.Count).FormulaR1C1 = Replace( _
"=CONCATENATE(RC[1],RC[2],RC[3],"" "",MID(RC[5],1,LEN(RC[5])),REPT(""*"",50-LEN(RC[5])),RC[6],REPT(""*"",64),REPT(""0"",15-LEN(RC[8])),SUBSTITUTE(RC[8],"","",)*1,""PAIE "",UPPER(TEXT(TODAY(),""mmm aaaa"")),REPT(""*"",135))", _
"RC[", Mid$([A2].FormulaR1C1, 2, Len([A2].FormulaR1C1) - 5) & "RC[")
End Sub