For Each c In Range([Paramètres!I1], [Paramètres!I100].End(xlUp))
Fichier_Source = c
If Fichier_Source.value <>"" then
Fichier_Destination = Repertoire_Transfert_Complet + Mid(c, InStrRev(c, "/") + 1)
FileCopy Fichier_Source, Fichier_Destination
On Error GoTo Traitement_Erreur_Fichier_Ouvert
else
Next c