Copier/coller fichier excel VBA

Fichier = dir(chemin complet répertoire)
do
if fichier = classeur_cherché
    Workbooks.Open chemin répertoire & fichier 
    Workbooks.SaveAs chemin nouveau répertoire & "copie" & fichier 
    Workbook.Close
    exit do
end if
dir
loop

Public Sub recherche_fichier()
Dim nouveau As Variant
Dim cherche As String
Dim fichier As String
Dim chemin As String
chemin = "C:\fichiers\excel\"      '  à remplacer par ton répertoire
nouveau = "D:\mano"                '  à remplacer par ton nouveau répertoire
cherche = "classeur.xls"           '  à remplacer par ton classeur
fichier = Dir(chemin)              '  recherche premier 
Do
    If fichier = cherche Then      '  fichier trouvé
        Workbooks.Open chemin & fichier    '  fichier ouvert 
                                                      ' demande du nouveau nom
        nouveau = Application.GetSaveAsFilename(nouveau, _
              fileFilter:="classeurs (*.xls), *.xls", _
              Title:="Saisissez votre nouveau nom")
        If nouveau <> False Then            '  fichier saisi ?
            ActiveWorkbook.SaveAs nouveau   ' sauvegarde nouveau
            MsgBox "Sauvé sous " & nouveau  ' message
            ActiveWorkbook.Close            ' fermeture
        Else
            MsgBox "Classeur non sauvegardé"
        End If
    Exit Do  ' sortie procédure
    End If
    fichier = Dir                '  recherche fichier suivant
Loop
End Sub