Dim NomFic As String, RésuDir As String
ChDrive "C": ChDir "C:\Desktop"
RésuDir = Dir("Bons de prélèvement-" & Format(Now - TimeSerial(0, 5, 0), "yyyymmdd-hh") & "*.xlsx")
While RésuDir <> ""
If RésuDir > NomFic Then NomFic = RésuDir
RésuDir = Dir: Wend
If NomFic <> "" Then Application.Workbooks.Open NomFic