Sub Macro20()
Dim Dt As Date, Col As Long
Dt = Feuil1.[A1].Value
Col = 3 + Dt - Feuil3.[C3].Value
Feuil3.Cells(2, Col).Resize(2).Value = Dt
With Intersect(Feuil3.Cells(4, Col).Resize(1000000), Feuil3.UsedRange)
.FormulaR1C1 = "=IFERROR(INDEX(DATA!R4C2:R999C2,MATCH(RC1,DATA!R4C1:R999C1,0)),"""")"
.Value = .Value
End With
End Sub