Option Explicit
Sub test()
Dim wbData As Workbook
Dim pth As String 'path
Dim prf As String 'préfixe
Dim suf As String 'suffixe
Dim nom As String 'nom
Dim dat As Date 'date
Dim dat2 As Date 'date
Dim fichier$
dat = CDate("01/01/1900")
pth = "C:\Users\polux\DeskTop\33740\"
prf = "Project_Rapport 2020_Situation -"
suf = "_LONG.xlsm"
nom = Dir(pth & prf & "*" & suf)
Do While nom > ""
nom = Trim(Replace(Replace(nom, prf, ""), suf, ""))
If IsNumeric(nom) And Len(nom) = 8 Then
If IsDate(Format(nom, "##/##/####")) Then
dat2 = CDate(Format(nom, "##/##/####"))
If dat2 > dat Then fichier...