Sub Select_Fichier()
Dim Z As String, Num As Long, NumMax As Long, NomFic As String
ChDrive "H": ChDir "H:\DC_01\Data Sharing\Semaines étudiées"
Z = Dir("Jeunesse S*.*")
Do While Z <> ""
Num = Split(Split(Z, "esse S")(1), ".")(0)
If Num > NumMax Then NumMax = Num: NomFic = Z
Loop
'Rech V dans S43
Range("G1").FormulaR1C1 = "=VLOOKUP(R1C14,'" & CurDir & "\[" & NomFic _
& "]Ventes et Stocks Magasins'!R4C10:R20000C14,2,0)"
End Sub