Sub RecupValeurs(feuilleDest As String, destination As String, chemin As String, nomFichier As String, nomFeuille As String, plageCellules As String)
' Paramètres :
' feuilleDest : feuille de destination
' destination : plage ou sera effectuée la copie
' chemin : chemin du dossier ou est situé le fichier ou sont les données à recuperer
' nomFichier : nom du fichier ou sont les données à recuperer
' nomFeuille : feuille ou sont les données à recuperer
' plageCellules : plage de cellule à copier
Sheets(feuilleDest).Range(destination).FormulaArray = "='" & chemin & "\[" & nomFichier & "]" & nomFeuille & "'!" & plageCellules
Sheets(feuilleDest).Range(destination) = Sheets(feuilleDest).Range(destination).Value
End Sub