Fichiers récemment ouverts

Sub Fichier_Recent()
Dim vReponse As String
    
Dim Nb As Integer, A As Integer
Nb = Application.RecentFiles.Count

    If Nb = 0 Then
    MsgBox "Il n'y a pas de fichiers récents à supprimer !!!", vbOKOnly + vbQuestion, "Liste Vide."
    Exit Sub
    End If
    
    vReponse = MsgBox("Voulez-vous effacer la liste" & Chr(10) & "de fichiers ouverts récemment ?", _
    vbYesNo + vbQuestion, "Suppression liste.")
   If vReponse = vbYes Then

For A = Nb To 1 Step -1
    Application.RecentFiles(A).Delete
Next

End If
End Sub