XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel

Bonjour a toutes les bonnes ames qui voudront bien m'aider:

j'ai des centaines de fichiers PDF a classer dans 600 dossiers (lesquels contiennent 9 sous dossiers); un fichier peut etre copié dans plusieurs sous dossiers.
Je voudrai, a partir d'un tableau excel, copier une selection de fichiers en cochant des cases. (afin de ne pas passer des semaines a faire ca a la main et afin d'eviter les erreurs)

Je suis en phase de test mais rien ne fonctionne....
en colonne, j'ai le nom (pas le chemin) des dossiers destinataires principaux (dans lesquels j'ai 9 sous dossiers, mais pour l'instant je n'en suis pas encore a trier dans les sous dossiers)
et en ligne, le nom des fichiers sources a copier dans les differents dossiers destination.

les chatGPT et autres logiciels me proposent ca:

CopyFilesBasedOnTicks()
Dim srcFolder As String
Dim destFolder As String
Dim sourceFile As String
Dim destPath As String
Dim tickRange As Range
Dim cell As Range

' Set the source folder path
srcFolder = "C:\Source"

' Set the destination parent folder path
destFolder = "C:\destination\"

' Set the range of cells containing ticks (source files in rows, destination folders in columns)
Set tickRange = ThisWorkbook.Worksheets("Feuil5").Range("B212")

' Loop through each cell in the tick range
For Each cell In tickRange
' Check if the cell contains a tick
If cell.Value = True Then
' Get the source file path
sourceFile = srcFolder & "\" & cell.Offset(0, -1).Value

' Get the destination folder path
destPath = destFolder & cell.Offset(-1, 0).Value & "\" & cell.Value

' Create the destination folder if it doesn't exist
If Dir(destPath, vbDirectory) = "" Then
MkDir destPath
End If

' Copy the file to the destination folder
FileCopy sourceFile, destPath & "\" & cell.Offset(0, -1).Value
End If
Next cell

MsgBox "Files copied successfully!"
End Sub

est ce que je suis sur la bonne voie?

merci pour votre aide
JP