Filtrer une distribution de fichier choisi

Bonjour le Forum,

Encore une journée pas très productive!

Je cherche a filtrer la distribution par la 5ème colonne nommée "conformité" de la feuille "Base" (Données=Oui,Non)

L'adresse du répertoire de destination est en colonne "DH"

Le code ci dessous fonctionne très bien, mais je ne peux ni filtrer ni choisir plusieurs fichier.

Quelqu'un peut m'aider?

J'ai essayé: .AutoFilter Field:=5, Criteria1:="Oui*" mais je ne sais pas si ou ou je dois le mettre!

Sub Copier_le_fichier_vers_00() '00 est la colonne du 1er dossier de destination de la feuille "Base"

    Application.ScreenUpdating = False
    Dim Donnees As Worksheet, DerniereLigne&, i&, repdest As String
    Dim FileSource As String
    Dim FileDest As Variant
    Dim Fichier As String
    Dim NomFic As String

    ChDir "N:\32_Transfer\Mon nom\Documents pour classeurs conformité"
    FileSource = Application.GetOpenFilename("Tous les fichiers (*.*),*.*") 'c'est ici que le choix du fichier a copier doit se faire
    NomFic = Split(FileSource, "\")(UBound(Split(FileSource, "\"))) 'copie que le nom du fichier avec extention
    Set Donnees = ThisWorkbook.Sheets("Base")

    DerniereLigne = Donnees.Cells(Rows.Count, 2).End(xlUp).Row
     For i = 2 To DerniereLigne 
            FileDest = NomFic '("exemple de nom de fichier.pptx")
            repdest = Donnees.Range("DH" & i).Value
            If Dir(repdest, vbDirectory) <> "" Then 'vérifie que le répertoire de destination existe
                FileCopy FileSource, repdest & FileDest
            End If
     Next i

End Sub

Merci d'avance pour le coup de main

Andreas

Hello à tous,

Qui pour m'aider dans ma tâche?

Salutations

Andreas