Sub Courtier()
Dim MaL As Range
Dim chemin As String
Set MaL = Worksheets("Feuil1").Cells(2, 9)
chemin = Worksheets("Feuil1").Cells(14, 3)
Workbooks.Open Filename:=chemin
Workbooks.Open Filename:="fichier.xls"
Workbooks("Analyse fichier.xls").Sheets("Analyse").Select
Range("b6").Value = MaL
Range("a1").Value = Right(chemin, 34)
'affiche les 34 derniers caractères du chemin, ce qui donne le nom du fichier
'étudié (cette information me sert pour autre chose)
Range("a1").Select
End Sub