VBA : pbm import champ access (avec formule)

Sub test()
Dim oRs As ADODB.Recordset
Dim oCnn As ADODB.Connection

    Set oCnn = New ADODB.Connection
    oCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\toto\Bureau\P_test_en_cours.mdb;" 
    oCnn.Open
    
    Set oRs = New ADODB.Recordset
    oRs.Open "select * from R_stat_descriptives_dec ;", oCnn, adOpenKeyset, adLockReadOnly, adCmdText
    
For i = 0 To oRs.Fields.Count - 1
        Workbooks("Sorties_resultats").Sheets("toto").Cells(1, i + 2).Value = oRs.Fields(i).Name
 Next
    
     Workbooks("Sorties_resultats").Sheets("toto").Cells(2, 2).CopyFromRecordset oRs
    
     oRs.Close
     Set oRs = Nothing
     oCnn.Close
     Set oCnn = Nothing
End Sub

Public Function fMediane(strTable As String, Strfield As String) As Variant

Dim oDBS As DAO.Database
Dim oRST As DAO.Recordset
Dim blnEven As Boolean
Dim vntMedian As Variant

  Set oDBS = CurrentDb()
  Set oRST = oDBS.OpenRecordset("SELECT * FROM " & strTable & " ORDER BY " & Strfield)
  
  If oRST.EOF = False Then
     oRST.MoveLast
     'Is there an even number of records in the recordset?
     blnEven = (oRST.RecordCount Mod 2 = 0)
     'Rounds down if there is an even number of records...
     oRST.PercentPosition = 50
     vntMedian = oRST.Fields(Strfield)
          
     If blnEven Then
         oRST.MoveNext
         '...so take the average of the this and the next value up
         vntMedian = (vntMedian + oRST.Fields(Strfield)) / 2
     End If
  End If
  
  fMediane = vntMedian
  oRST.Close
  Set oRST = Nothing
  Set oDBS = Nothing

End Function