XL 2013 [Résolu] Macro Copie Colle des fichiers

Sub vérif()
chemin = "C:\Users\toto\Desktop\test\" 'renseigner ici votre répertoire de recherche en string
fichier = Dir(chemin & "*.xlsx") 'renseigner une extension de fichier pour cibler ou "*.*" pour le tout venant
Do While fichier <> "" 'tant qu'on trouve un nom de fichier
If fichier = "Classeur1.xlsx" Then MsgBox fichier 'si il porte bien le nom que je veux alors afficher une msgbox
fichier = Dir 'passe au fichier suivant
Loop 'fin de la boucle
End Sub

Function vérif() As Boolean
fichier = Dir(Src & "*.*")
Do While fichier <> ""
If fichier = Fich Then 
vérif = True
else
vérif = False
end if
fichier = Dir
Loop
End Function

If vérif() = True Then fso.CopyFile Src & Fich, Dest & Fich

Sub copievf()

Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
 
    'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("Feuil1")
     
    'Détermine la dernière ligne renseignée de la feuille de calculs
    '(Voir explication sur l'utilisation de Split en bas de cette discussion)
    DerLig = Split(FL1.UsedRange.Address, "$")(4)
     
    'Fixe le N° de la colonne à lire
    NoCol = 2
     
    'Utilisation du N° de ligne dans une boucle For ... Next
    For NoLig = 2 To DerLig
        Var = FL1.Cells(NoLig, NoCol)
         
        'Pour tester : Affiche les variables dans la fenêtre Exécution de VBA
        Debug.Print Var
        
        Dim fso As Object, Src$, Dest$, Fich$


            Set fso = CreateObject("Scripting.FileSystemObject")
            Destination = FL1.Cells(NoLig, 4).Value
            'Src = ThisWorkbook.Path & "\"
            Src = "C:\Users\67R0002\Desktop\Test\"
            Dest = Destination
            Fich$ = Var & ".pdf"
            'MsgBox Src & Fich
            'MsgBox Dest & Fich
        
           'fso.CopyFile Src & Fich, Dest & Fich
           If vérif() = True Then fso.CopyFile Src & Fich, Dest & Fich
Next


    Set FL1 = Nothing
    
'

 End Sub

Function vérif() As Boolean
Src = "C:\Users\67R0002\Desktop\Test\"
 Fichier = Dir(Src & "*.*")
 Do While Fichier <> ""
 If Fichier = Fich Then
 vérif = True
 Else
 vérif = False
 End If
 Fichier = Dir
 Loop
 End Function

Public Src$

Sub copievf()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
...
...
end sub