Microsoft 365 vba récupérer valeur cellule d'une autre feuille

Function GetCelVal(FilePath As String, SheetName As String, CellRef As String)
  Dim Conn As Object
  Dim Rs As Object
  Dim FileFullPath As String
  Dim Query As String
 
  FileFullPath = "'" & FilePath & "[" & Mid(FilePath, InStrRev(FilePath, "\") + 1) & "]" & SheetName & "'"
  Query = "SELECT * FROM [" & SheetName & "$" & CellRef & ":" & CellRef & "]"
  ' Création de la connexion ADODB
  On Error Resume Next
  Set Conn = CreateObject("ADODB.Connection")
  Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath & ";Extended Properties='Excel 12.0;HDR=No'"
  ' Exécuter la requête
  Set Rs = Conn.Execute(Query)
  ' Vérifier si des données sont retournées
  If Not Rs.EOF Then
      GetCelVal = Rs.Fields(0).Value
  Else
      GetCelVal = "Erreur"
  End If
  ' Fermer les objets
  Rs.Close
  Conn.Close
  Set Rs = Nothing
  Set Conn = Nothing
End Function