Sub testTEST()
Dim chemin As String, feuille As String, cellule As String, fichier As String
chemin = "C:\"
fichier = Range("A1") & ".xls"
feuille = "TEST"
cellule = "A1"
ActiveSheet.Range("A3").Value = [COLOR=Blue]_
ExtraireValeur[/COLOR](chemin, fichier, feuille, cellule)
End Sub