Sub LitRep()
Dim MyPath$, MyArg$, i%, Trouve$
MyPath = 'C:\\Documents and Settings\\XXXXXXXXX\\Mes documents\\Monrépertoire de stockage\\'
Workbooks.Open Filename:=MyPath & 'memo.xls'
MyArg = '??_200?????' & '_??????_fr.xls'
Trouve = Dir(MyPath & MyArg)
i = 1
Do While Trouve <> ''
If Cells(i, 1) = Trouve Then
i = i + 1
Else
Cells(i, 1) = Trouve
i = i + 1
If MsgBox('Voulez-vous exploiter le Fichier ' & Trouve, 4) = 1 Then
MsgBox 'Longue suite de traitement'
Exit Do
End If
End If
Trouve = Dir
Loop
Workbooks('memo.xls').Close True
End Sub