Sub Macro1()
' Tableau copie formule
Dim T() As Variant
ReDim T(1 To 10000, 1 To 3)
For i = 1 To UBound(T, 1)
For j = 1 To UBound(T, 2)
T(i, j) = "=IFERROR(INDEX(S_Sim_ER,MATCH(1,(S_Sim_Nom=R[1]C1)*( OFFSET(S_Sim_DateRef,,MATCH(R[1]C2,S_Sim_Chrono,0)-1)<>0),0)),""AUTRE"")"
Next j
Next i
[A1].Resize(UBound(T, 1), UBound(T, 2)) = T()
End Sub