Range('A65000').End(xlUp).Offset(0, 0).Select
ActiveCell.EntireRow.Offset(0, 0).Range('C1').Select
ActiveCell.FormulaR1C1 = '01'
Range('A65000').End(xlUp).Offset(0, 0).Select
ActiveCell.EntireRow.Offset(0, 0).Range('B1').Select
ActiveCell.FormulaR1C1 = '=IF(ISBLANK(RC[6]),'''',RC[6]&'' / ''&RC[1])'
For Each c In Columns('B').SpecialCells(xlCellTypeFormulas, 23)
c = c.Value
Next c
LockUnlockWorkSheet shtEnCours, enLock
Range('A65000').End(xlUp).Offset(0, 0).Select