Lig = Sheets("mafeuil").Range("A" & Rows.Count).End(xlUp).Row
col = Sheets("mafeuil").Cells(4, Columns.Count).End(xlToLeft).Column
Cells(4, col + 3).Activate
ActiveCell.FormulaR1C1 = "=INDEX(R5C2:R43C20,MATCH(RC23,R5C1:R43C1,0),MATCH(R4C24,R4C2:R4C20,0))"