ThisWorkbook.Sheets("PARAM").Range("P_NomClient").FormulaR1C1 = "=Concatenate'[Sommaire DA.xls]Sommaire'!R3C5,"" "", '[Sommaire DA.xls]Sommaire'!R4C5)"
ThisWorkbook.Sheets("PARAM").Range("P_Exercice").FormulaR1C1 = "='[Sommaire DA.xls]Sommaire'!R5C5"