Sub RecopierDonnes()
For x = 2 To 9
Cells(x, 11).FormulaR1C1 = "=INDEX(Tableau1[Nombre],MATCH(RC6,Tableau1[Date]))"
Cells(x, 11).Copy
Cells(x, 11).PasteSpecial Paste:=xlPasteValues
Cells(x, 12).FormulaR1C1 = "=INDEX(Tableau1[Nombre2],MATCH(RC6,Tableau1[Date]))"
Cells(x, 12).Copy
Cells(x, 12).PasteSpecial Paste:=xlPasteValues
Next x
End Sub