vérifier si fichier du répertoire1 ne sont pas dans répertoire2

Sub Test()
Dim NomFich() As String
Dim Rep1 As String, Rep2 As String, No As Integer
    Rep1 = "D:\répertoire1\" 'A ADAPTER
    Rep2 = "D:\répertoire2\" 'A ADAPTER
    No = 0
    ReDim NomFich(No)
    NomFich(No) = Dir(Rep1 & "*.xls")
    Do While NomFich(No) <> ""
        No = No + 1
        ReDim Preserve NomFich(No)
        NomFich(No) = Dir()
    Loop
    For No = 0 To UBound(NomFich)
        If Dir(Rep2 & NomFich(No)) <> "" Then
            MsgBox "fichier " & Rep1 & NomFich(No) & " existant dans " & Rep2
            'kill Workbooks(Rep2 & NomFich(No)) 'a valider 
        End If
    Next

End Sub