Option Explicit
Function RecupInfo(Fichier As String, Feuille As String, Ligne As Long, Col As Integer)
With CreateObject("Excel.Application").Workbooks.Open(Fichier)
RecupInfo = .Worksheets(Feuille).Cells(Ligne, Col)
.Close False
End With
End Function